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ABSTRACT 



EXERCISER IS 4 1AINTENCE PROGRAM DESIGNFD 
TO TEST FOR RELIABLE OPERATION OF THE PROCESSOR 
INSTRUCTIONS AMI THE PAPER TAPE EQUIPMENT, THE 
PROGRAM MAY EXERCISE THE TELETYPE READER/ 
PUNCH, HIGH S°EEO READER/PUNCH, THE REAL TIME 
CLOCK, AM-) THE MOVA INSTRUCTIONS. THE DEVICES 
TO BE USE!? ARE SELECTED BY CONSOLE 3WXTCH8 
AND ARE SERVICED VIA THE INTERRUPT SYSTEM, 
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STANDREO MOVA PROCESSOR 

2K READ/N-VITE MEMORY, MINIMUM 

OPTIONAL EQUIPMENT 

TELETYPE READFR 
TELETYPF PUNCH 
HIGH SPEED READER 
HIGH SPEED PUNCH 
REAL TIM? CLOCK 
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SETTINGS 
STARTING 
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SWITCH 

switch 

SWITCH 
S K I T C H 
SWITCH 
Si. ITCH 

switch 

SWITCH 
SWITCH 



"1(1) 
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7(1) 
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aACTIVATE 
a u 
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s" 
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aACTIVATE 
=*CTIVATE 
aACTIVATE 
sACTIVATE 



SPEFD 
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HIGH 
ii 

TFLETYPF 
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PUNCH 
READER 
READER 
PUNCH 
RFAL TIME CLOCK 
SECOND PTP 
SFCOND PTR 
SECDND TTI 
SECOND TTO 
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BINARY LOADER 



MANUALLY STOPPED 
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L^AO THF PROKRft-* VIA THE 
SFT SWITCHES TO r?|!??>i£*pi2 
P'-'ESS START 

TH£ PROGRAM WILL PUN UNTILL 
OH A FPPOR IS DETECTED, 
IM/niiT EOUIPMEM TESTING 

HY SETTING SWITCHES 55-4 THE CDRRFSPONOIN 
OEviCE WTLL BE ACTIVATED, THE SWITCHS AR 
RCAO 4T Twf COMPLETION OF EACH PASS OF T 
iNSTwiCTinw TFST, IF A CONSOLE SWITCH HA 
BEE-j SFT/CLFAREO DURING TH£ INSTRUCTION 
TEST T*- DEVICE WTLL BE ACT T V ATED/DE ACTI 
AT THE ENO OF A PASS. 

TO TEST Thf HIGH SPEED READER AND PUNCH 
"AISE THE RFAOER LEVER 
SFT SWITCHES * AND 1 
Wwen 5 TO 6 FEET OF TAPE HAVE 
HfFM PUNCHED PRESS STOP, 
insert THE TAPE INTO THE READER 
CLOSE THE LEVER 
PWESS CONTINUE 
THE TAPE WILL BE CHFCKED 



4.5.3 TO TEST THE TELETYPE READER AND PUNCH 

4.5.3.1 SET THE TELETYPE READER TO FREE 

4.5.3.2 PRESS THE PUNCH ON BUTTON 

4.5.3.3 SET SWITCHES 2 AND 3 

4.5.3.4 WHEN SEVERAL INCHES OF TAPE 

HAVE BEEN PUNCHED INSERT THE 
LEADER... INTO THE READER. 

4.5.3.5 SET THE READER SWITCH TO START 

4.5.3.6 THE TAPE WILL BE CHECKED 

5, PROGRAM OUTPUT/ERROR DISCRIPTION 

5.1 WHEN A MALFUNCTION IS OETECTED THE PROGRAM 
WILL HALT. CONSULT THE LISTING FOR THE 
CAUSE OF ERROR. 

5.2 UPON CONTINUING FROM A ERROR MOST ROUTINES 
WILL ENTER A LOOP USING THE FAILING OPERANDS, 

5.3 MOST ROUTINES ISSUE A "P» PULSE(A74) FOR 
SYNCING A SCOPE. IF POSSIBLE TRY TO OBSERVE 
THE ERROR WITHOUT THE I/O EQUIPMENT RUNNING. 

ffi. PROGRAM DISCRIPTION/THEORY OF OPERATION 
16.1 THE EXERCISER PROGRAM IS DESIGNED TO PRODUCE 

A INTERNAL MACHINE ENVIRONMENT AS SIMULAR 
TO NORMAL OPERATING CONDITIONS AS POSSIABLE. 
THE PROGRAM ISSUES A I/O RESET PULSE AND EXECUTE 
THE INSTRUCTION TEST, THE INSTRUCTION TEST USES 
A OATA BUFFER WHQS START AND STOP ADDRESS ARE 
LOADED AS 3000 AND 3600. AT THE END OF EACH 
PASS THE BUFFER START AND STOP PARAMETERS ARE 
ADJUSTED TO THE MAXIMUM MEMORY SIZE. THE 
INSTRUCTIONS WILL BE TESTED WITH THE SYSTEM 
MEMORY SIZE ON SUCESSIVE PASSES. THE PROGRAM 
WILL NOT USE THE LAST 200 LOCATIONS OF THE 
HIGHEST MEMORY MODULE (LOCATION OF LOADERS), 
(6.2 AT THE END OF EACH PASS THE CONSOLE SWITCHS 

ARE READ. IF SWITCHS 0-8 ARE ALL ZERO THE 
PROGRAM WILL RETURN TO CYCLE THE INSTRUCTION 
TEST. IF A SWITCH HAS BEEN SET THE CORRESPOND- 
ING DEVICE WILL BE ACTIVATED, AND THE INTERRUPT 
SYSTEM TURNED ON. AFTER THE SWITCHS HAVE BEEN 
INTERROGATED AND THE MEMORY SIZE DETERMINED THE 
PROGRAM RETURNS TO THE INSTRUCTION TEST FOR 
ANOTHER PASS. 
6,3 THE DEVICES ARE SERVICED VIA THE INTERRUPT 

SYSTEM. THE "INTA" INSTRUCTION IS USED TO 
DISPATCH TO THE ROUTINE REQUESTING SERVICE. 
IF THE INTA READS BACK A IMPROPER DEVICE CODE 

A HALT WILL OCCUR. WHEN DEVICES 
ARE ACTIVE A HALT OCCUSING WITH "ION" LIGHT OFF 
INDICATES A ERROR AT THE INTERRUPT SERVICE LEVEL 
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»*.4 THE REAL TIME CLOCK IS ACTIVATED BY 

f SWITCH 4. THE CLOCK IS SET TO INTERRUPT 

' AT A 1PIO0 HERTZ RATE. WHEN A CLOCK INTERRUPT 

» OCCURS THE SUSY AND DONE FLAGS ARE TESTED 

» BEFORE AND AFTER THE CLOCK IS RESTARTED, 

**.5 THE TELETYPE PUNCH IS ACTIVATED BY 

' SWITCH 3. THE PUNCH WILL PUNCH SEVERAL 

t INCHES OF LEADER FOLLOWED BY NON 

» ZERO, EVEN PARITY, RANDOM CHARACTORS, 

? THE PUNCHING WILL CONTINUE UNTILL 

! SWITCH 3 IS DEPRESSED, AT WHICH TIME 

f TRAILER WILL BE PUNCHED. 

»*.* THE TELETYPE READER IS ACTIVATED BY 

» SWITCH 9, THE READER WILL ACCENT TAPE 

I PUNCHED EITHER ON THE TELETYPE OR HIGH 

i SPEED PUNCH. THE READER WILL INITIALIZE 

? ITS RANDOM NUMBER GENERATOR ON A ZERO CHAR- 

» ACTOR. IT IS NECESSARY TO LOAD THE READER IN 

1 THE LEADER SECTION OF THE TAPE. 

**•? THE HIGH SPEED READER IS ACTIVATED BY SWITCH 

1 1. THE READER WILL READ AND CHECK TAPES 

t PRHDUCED ON EITHER THE TELETYPE OR HIGH 

* SPEED PUNCH, IF THE PUNCH IS ACTIVE 

J WHEN TAPES ARE BEING READ THE READER WILL BE 

SYNCHDWIZED WITH THE PUNCH SUCH THAT THE TAPE 
BEING PUNCHED MAY BE LOADED INTO THE READER. 

1 IF THE HIGH SPEED PUNCH IS NOT ACTIVE A PRE- 
PUNCHED TAPE WILL BE READ AT HIGH SPEED. 

'*•* TH£ HIGH SPEED PUNCH IS ACTIVATED BY SWITCH 0, 

f THE PUNCH *ILL PUNCH 25« LINES OF LEADER 

J FOLLOWED *Y NON ZERO, EVEN PARITY, RANDOM 

CHARACTORS, PUNCHING WILL CONTINUE UNTILL 

? C 111 T T l» U n TC rACOOCeeCK • W I.I i , T <» U * V U r- m n . m . m. r* 

• '"'n^n v j,^ 1,-c.r t c vj ac u , »i unitn lift I HHlLt" 

» WILL BE PUNCHED, 

;7. RESTPICTIONS/MISC 

'7.1 hOTh THE TELETYPE AND HIGH SPEED READER MUST 

i HF IN THE LEADER SECTION OF THE TAPE WHEN 

THAY ARE STARTED. 

S7.2 SWITCHES ARE READ ONLY AT THE END OF A PASS, 

: THEREFOR, THERE IS A DELAY BETWEEN THE SWITCH 

! ACTION AND THE DEVICE RESPONSE, 

J7.3 OEBUGTN^ IS DIFFICULT IN THE ENVIORMENT 

CREATED BY ACTIVE I/O EQUIPMENT. WHENEVER 

; PnsSlABLE USE THE DIAGNOSTIC FOR THE 

PFRTICULAR I/D DEVICE FAILING, 

•* 7 .4 PRESSING A TELETYPE KEY MAY CAUSE A ERROR, 

'* 7 „"> ^FADING A CHARACTDR OF ZEROS WILL 

J INITIALIZE THE RANDOM NUMBER TO 53 OCTAL, 

f THIS IS A IMPORTANT NUMBER IF PAPER TAPE 

? READERS A*E FAILING BY READING ALL ZER0S1 
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00001 

00002 
00003 
00004 
00005 



00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 

00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 

00070 
00071 
00072 
00073 
00074 
00075 
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000001 

000355 
002003 
000156 
063077 
000004 
000040 

000531 
000610 
000510 
000410 
000644 
000004 
000004 
000004 
000775 
001034 
000754 
000651 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000377 
000000 
000070 
000377 
000000 
000000 
135525 

000000 

000177 

0000 1 



00077 

00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 



000565 
000000 
000000 
000(900 
000000 
000000 
000000 
00012100 
000000 
177773 

0001404 



;PAGE ZERO STUFF 
.LOC 1 
INTR 

JMP #.+l 
BEG 
HALT 
JMP .-1 
,LOC 40 



ITABI 



L3RBI 

LSRCHI 

KRANI 

HSRBi 

HSRCHI 

READER! 

RRANI 

PRANI 

OOTI 

LTI 

PUNCHI 

RPDIFl 

C170! 

ACTION: 

C13552I 

RERI 

C177I 

I- 110 • 

CXRANDl 

I8AV0! 

ISAV1! 

ISAV2I 

I3AV3J 

ISAVCJ 

TRANI 

TYPE! 

TEMJ 

CM5: 

C4> 



LSR 

TYO 

HSR1 

PUN 

CLOCK 

4 

4 

4 

.LSR 

.TYO 

.HSR1 

.PUN 















id 



377 



• LOC 

377 





135525 



177 

10 

XHAND 










-5 
4 



.♦1 



/INTERRUPT FROM PLT,CDR,DI3 



/KEYBOARD INTERRUPT 

»TTO 

/READER 

fPUNCH 



/KEYBQA 

/" 

/» 

/READER 

/» 

1" 

1" 

IPUNCH 

IOUT OF 

/LEADER 

/PUNCH 


RD CHAR BUFFE 
ii 


RANDOM 

CHAR BUFFER 
it 


CHAR COUNTER 

RANDOM 
RANDOM 

TAPE FLAG 

TRAILER 
CHAR COUNT 



/TAPE LENGTH BETWEEN 
/ACTIVE OEVICES 



AAA 



09112 


003777 


MSIZEI 


3777 


00113 


000040 


C40t 


40 


00114 


003140 


bUKFl 


3140 


00115 


003600 


fin; 


3600 


00116 


00340? 


FIN200J 


3400 


00117 


003340 


bUF20tf J 


3340 


00120 


000003 


C3I 


3 


00121 


000005 


C5I 


5 


00122 


000377 


C377: 


377 


00129 


000000 


CF00I 





00124 


177600 


C174X! 


177600 


00125 


001070 


MAIN: 


STA0 


00126 


003000 


C3E00! 


3000 




00013P 




• LUC . 


00130 


001000 


C1000S 


1000 


00131 


000200 


C20W: 


200 


00132 


000000 


STP: 





00133 


000000 


STTi 





00134 


000000 


tin: 





00135 


000000 


TINEy: 





00136 


000037 


C37: 


37 


00137 


000000 


.stp: 





00140 


000000 


.RRAN; 


0> 


00141 


000000 


.pran: 





00142 


000000 


.punch; 





00143 


000000 


.READ; 





00144 


000000 


.h&rb; 





00145 


0.30000 


.hsrch: 





00146 


000000 


.TINEY* 





01*147 


0/0000 


• TIN: 





00150 


000000 


.LSRb; 
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00152 


000000 


,«kan: 





00153 


000000 


.TYPE: 





00154 


000000 


.than: 


id 


00155 


000000 


.stt: 


w 




000053 


,PTP*53 






000052 


.PTP-52 






B w to to 5 


,TTIs5*> 






000051 


.TT0"3l 





+ 1 



AAA 



00156 


102400 


00157 


040072 


00160 


062677 


00161 


002125 


00162 


030072 


00163 


064477 


00164 


150000 


00165 


133502 


00166 


004276 


00167 


151102 


00170 


004307 


00171 


151102 


00172 


004315 


00173 


151102 


00174 


004267 


00175 


151102 


00176 


004264 


00177 


151102 


00200 


004340 


00201 


151102 


00202 


004351 


00203 


15U02 


00204 


004324 


00205 


151102 


00206 


004331 


00207 


030072 


00210 


044072 


00211 


124000 


00212 


133502 


00213 


004301 


00214 


151102 


00215 


004305 


00216 


151102 


00217 


004313 


00220 


151102 


00221 


004272 


00222 


1511(22 


00223 


060214 


00224 


151102 


00225 


004343 


00226 


101001 


00227 


0idtfio00 


00230 


151102 


00231 


004347 


00232 


151102 


00233 


004322 


00234 


151102 


00235 


004334 



BEGl 



BEC1I 



SUB 0,0 


/START1 


3 HERE 


STA 0, ACTION 






IORST 






JMP 9MAXN 


/PROCESSOR TEST 


LQA 2, ACTION 






READS 1 






COM 2,2 






ANDL 1,2,SZC 






JSR PTPSU 


/START 


PUNCH 


MOVL 2,2,SZC 






JSR PTRSU 


/START 


READER 


MOVL 2,2,SZC 






JSR TTISU 


JSTART 


TTI READER 


MOVL 2,2, SZC 






JSR TTOSU 


/START 


TTO OUTPUT 


MOVL 2, 2, SZC 






JSR RTCSU 


ISTART 


REAL TIME CLOCK 


MOVL 2,2, SZC 


/SECOND PUNCH 


JSR .TPSU 






MOVL 2, 2, SZC 


/SECOND READER 


JSR .TRSU 






MOVL 2, 2, SZC 


/SECOND TTI 


JSR .TISU 






MOVL 2, 2, SZC 


/SECOND TTO 


JSR .TOSU 






LDA 2, ACTION 






STA 1, ACTION 






COM 1,1 






ANDL 1,2, SZC 






JSR PTPSD 


/STOP 


PUNCH 


MOVL 2, 2, SZC 






JSR PTRSD 






MOVL 2, 2, SZC 






JSR TTISD 


/STOP 


TTI READER 


MOVL 2, 2, SZC 






JSR TTOSO 


/STOP 


TTO 


MCVL 2, 2, SZC 






NiuC RTC 


f STOP 


Al A «• 1/ 

LL.ULIV 


MOVL 2, 2, SZC 






JSR .TPSD 


/STOP 


SECOND PTP 


MOV 0,0, SKP 



MOVL 2,2, SZC 










JSR .TRSD 


/STOP 


SECOND PTR 


MOVL 2, 2, SZC 






JSR .TISO 


/STOP 


SECOND TTI 


MOVL 2, 2, SZC 






JSR ,TUSD 


/STOP 


SECOND TTO 



AAA 

00239 
00237 
00240 
00241 
00242 
00243 
00244 
00245 

03248 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
0*257 
03260 
002*1 
0*262 
a \a 9 6 3 



024126 
020130 
107000 
044112 
125U2 
300250 
046112 
032112 
132415 
000237 
014U2 
020131 
024112 
136400 
044H5 
106400 
044116 
323124 
324372 
107404 
360177 
3CI2125 



MEHSZI 



LOA 1, 
LOA 0, 
ADD 0i 
3TA 1, 

MOVL# 
JMP .♦ 

3TA 1, 
LOA 2, 

SUB* 1 

JMP ME 

DSZ 

IDA 

IDA 

SUB 

STA 

SUB 

STA 

LOA 

L^A 

AND 

NIOS 

JMP 



MS 

0, 
1# 

0i 
l# 
0i 
1* 

0. 

I.. 
9, 

C 

IM 



C300I 

C100I 

1 

MSIZE 

If 1»IZC 

5 

•MIIZE 

•MSIZE 

,2,3NR 

M8Z*1 

IZE 

C200 

MSIZE 

1 

FIN 

1 

FIN200 
C174X 
ACTION 
lfSZR 

PU 
AIN 



ISXZE THE MIHORY 






JMEMORY MASK 



IIF SHITCHS SET TURN 
ION INTERRUPT ENABLE. 



03264 323123 
01*265 06H14 
0*266 3IM400 



01*267 
0*273 
03271 
0^272 
0*273 

03274 

03275 
03276 

03277 
03330 
003oil 
03332 
0333 3 
03334 



132403 

B611M 
1M24H1 

1323*3 
314^11^6 
343133 
A 0> 1 A <A 3 
l*24t*3 

3*ni3 

102401 

1*2030 
3 A \A ff> 6 6 
343 132 
3 3 1 A 3 



RTC8UI 



TTOSU! 



TT08DI 



PTPSUI 



PTPSDI 



LOA 0,C3 
DQAS 3,RTC 
JMP 0,3 



FSTART REAL TIME CLOCK 



SUB 
DOAS 
SUB 
AOC 
STA 
STA 
JMP 
SUB 
OOAS 
SUB 
AOC 
STA 
STA 
JMP 



• 

0,TTO 

,0,SKP 

f0 

iTYPE 

,STT 

.3 

f0 

0,PTP 

,0,SKP 

»0 

, PUNCH 

,STP 
.3 



^TELETYPE PUNCH 



FHI8H SPEED PUNCH 



03335 

0*306 

01*3*7 

03310 
0^311 
03312 

a 1313 

3 314 
03 31 5 
00316 
0*317 
8*320 

e ; i32i 



363212 
13 13H 

060112 
102400 

3 4 & r». »5 1 

3^1 A\A\A 
313135 

1^14 00 

iAb^l 13 
l-"?403 
3 4*134 

3 4*13? 
r i » 1 4 3 3 



PTRSOJ 



PTRSUJ 



TTISD* 
TTISUI 



NIOC PTR 
MOV* 0,0, SKP 
NIOS PTR 
SUB 0,0 
STA 0, READER 
JMP 0,3 

ISZ TINEY 
JMP 0,3 
NIOS TTI 
SUB 0,0 
STA 0,TIN 
STA 0, TINEY 
JMP 0,3 



fREADER 



7 



AAA 



00322 010146 .TISDI ISZ .TINEY 

00323 0014^19 JMP 0,3 

00324 060150 .TXSUI NIOS .TTI 

00325 102400 SUB 0,0 

00326 040147 STA 0,.TIN 

00327 040U6 STA 0,. TINEY 

00330 001400 JMP 0,3 

00331 102400 .TUSUI SUB 0,0 

00332 061151 OOAS 0..TTO 

00333 102401 SUB 0,0, SKP 

00334 102000 .TOSOI AOC 0,0 

00335 040153 STA 0,.TYP£ 

00336 040155 STA 0,.STT 

00337 001400 JMP 0,3 

00340 102400 .TPSU: SUB 0,0 

00341 061153 DOAS 0,.PTP 

00342 102401 SUB 0,0, SKP 

00343 102000 .TPSDI ADC 0,0 

00344 040142 STA 0, .PUNCH 

00345 040137 STA 0,,STP 

00346 001400 JMP 0,3 

00347 060252 .TRSOJ NIOC .PTR 

00350 101011 MQV# 0,0, SKP 

00351 060152 .TRSUI NIQS .PTK 

00352 102400 SUB 0,0 

00353 040143 STA 0, .READER 

00354 001400 JMP 0,3 



I8EC0ND TTI 



fSECOND TTD 



I5EC0ND PTP 



/SECOND PTR 



1 



AAA 

00355 
00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
00370 
00371 
00372 
00373 
00374 
00375 
00376 

00377 

00400 
00401 
00402 
00403 
00404 
00405 
00406 

00407 
00410 
059411 
00412 
00413 
00414 
00415 
00416 
00417 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 



040100 
044101 
050102 
054103 
175200 
054104 
061477 
030136 
113520 
024113 
107620 

133220 
024076 
034415 
172433 
132423 
063077 
003040 

020104 
101100 
020100 
024101 
030102 
034103 
060177 
002000 

000024 
006077 
000063 
024065 
030066 
132032 
00 425 
020073 
040063 
024075 
034132 
133405 
175005 
000415 
0316403 
000000 
000000 



INTHI 



DISMIS: 



C24I 
PUNI 



8TA 
STA 1 
STA 2 
STA 3 

MOVR 
STA 3 
INTA 
LDA 2 
ANDZL 
LDA 1 
ANDZR 
ADDZR 
LDA 1 
LOA 3 
SUBZ* 
SUBZ 
HALT 
JMP $ 



,ISAV0 

,XSAV1 

,ISAV2 

,ISAV3 

3,3 

,ISAVC 



,C37 

0|2» 

,C40 
0,1 
1.2 

,C10 
,C24 
3,2, SNC 

1,2,SNC 

ITAB,2 



lINTERRUPT DISPATCH 
/SAVE INTERRUPTS 



LDA 0,ISAVC 
MOVL 0,0 
LDA 0,ISAV0 
LDA l,ISAVi 
LDA 2,ISAV2 
LDA 3,ISAV3 
INTEN 
JMP #0 

24 

JSR #CXRAND 

PRAN 

LDA 1,LT 

LDA 2, PUNCH 

AOCZ» 1,2,SZC 

J MP PIJISJ1 

LDA 0,C135525 

STA 0,PRAN 

LDA 1,C177 

LDA 3,STP 

AND 1,2,SNR 

MOV 3,3,5NR 

JMP PUNX 

JMP ,+3 





IUNKQWN INTERRUPT? 
/SERVICE THE DEVICE 

/RESTORE, EXIT INTERRUPT 



IPUNCH INTERRUPT 

/LEADER/TRAILER 
/CHECK 



UNIT RANDOM ON L/T 



00430 
00431 
00432 
00433 
00434 
00435 
00436 
00437 
00440 
00441 



060213 
063412 
063712 

000377 
020372 
101100 
101102 
060U2 
000377 
1U240* 



PUNXS 



NIDC PTP 
SKPBN PTR 
SKPDZ PTR 
JMP DISMIS 
LDA 0, ACTION 
MOVL 0,0 
MOVL 0,0, SZC 
NIOS PTM 
JMP DISMIS 
SUB 0,0 



/STOP PUNCHING 



/RESTART READER 
IPUNCH LEADER/TRAILER 



AAA 



00442 010066 

00443 101001 

00444 010066 

00445 063413 

00446 063613 

00447 063077 

00450 061U3 

00451 063513 

00452 063713 

00453 063077 

00454 020066 

00455 024061 

00456 030070 

00457 1064(30 

00460 133404 

00461 000377 



PUN1I I8Z PUNCH 

MOV 0,0, SKP 
ISZ PUNCH 
SKPBN PTP 
SKPDN PTP 
HALT 

DOAS 0,PTP 
SKPBZ PTP 
SKPDZ PTP 
HALT 

LDA 0, PUNCH 

LDA 1, READER 

LDA 2,RPDIF 

SUB 0,1 

AND 1,2,SZR 

JMP DISMISS 



/CHAR COUNTER 



/PUNCH FLAG CHECK. 



/WHEN PUNCHING AND 
/READING IT MAY 
/BE NECESSARY TO 
/RESTART THE READER 

/EXIT INTERRUPT 



00462 063412 

00463 063712 

00464 000377 

00465 020072 

00466 101100 

00467 101112 

00470 060112 

00471 000377 

00472 064512 HSHI 

00473 020057 

00474 044057 

00475 b940060 

00476 030061 

00477 101004 

00500 151235 

00501 000425 

00502 006077 

00503 000062 

00504 &J24060 

00505 106414 

00506 063077 

00507 000377 



SKPBN PTR 
SKPDZ PTR 
JMP DISMISS 
LDA 0, ACTION 
MOVL 0,0 
MQVL# 0,0, SZC 
NIOS PTR 
JMP DISMISS 

DIAS 1,PTR 

LDA 0,HSR8 

STA 1,MSR8 

STA 0,H8RCH 

LDA 2, READER 

MOV 0,0, SZR 

MOVZR* 2,2, SNR 

JMP HSR3 

JSR tCXRAND 

RRAN 

LDA 1,H5RCH 

SUb« 0,1, SZR 

HALT 

JMP DISMIS 



/PUNCH ROUTINE CONT, 



/OPERATOR REQUEST 
/READER, START IT. 



/READER INTERRUPT 

/CHAR BUFFER 
/CHAR TO BE USED. 



/ZERO DATA OR FIRST CHAR. 
/GEN RANDOM CHAR 

/CHECK DATA 

/CC0)«GOOD CHARACTOR 
/C(1)«BAD CHARACTOR, 



Jv 



AAA 



00510 


020072 HSRli LDA 0, ACTION 


00911 


010061 


ISZ READER 


00512 


101001 


MOV 0,0, SKP 


00513 


010061 


ISZ READER 


00514 


101103 


MOVL 0,0, SNC 


00515 


000755 


JMP H8R 


00516 


020066 


LDA 0, PUNCH 


00517 


024061 


LDA 1, READER 


00520 


030070 


LDA 2,RPDIF 


00521 


1064010 


SUB 0,1 


00522 


133404 


AND V,2, SZR 


00523 


000747 


JMP HSR 


00524 


064612 


DIAC 1,PTR 


00525 


000746 


JMP HSR+1 


00526 


020073 HSR3I LDA 0,C135525 


00527 


040062 


STA 0,«KAN 


00530 


000377 


JMP DISMIS 



ITAPE LENGTH 

JDQN'T LET READER READ 
JTO MUCH TAPE 

fREAD AND STOP 



IRANDQM SETUP 



00531 


6520135 LSRI 


00532 


101005 


00533 


000403 


00534 


060210 


00535 


000377 


00536 


064510 


00537 


063610 


00540 


063410 


00541 


063077 


00542 


030134 


wwsmo 


Witfi J« 


00544 


101001 


00545 


010134 


00546 


020054 


00547 


044054 


00550 


040055 


00551 


151004 


00552 


101005 


00553 


000407 


00554 


006077 


00555 


000056 


00556 


024055 


00557 


106414 


00560 


063077 


00561 


000377 


00562 


020073 LSR1I 


00563 


04(4056 


00564 


000377 



LDA 0,TINEY 
MOV 0,0, SNR 
JMP .+3 
NIOC TTI 
JMP DISMIS 
DIAS 1, TTI 
SKPDN TTI 
SKPBN TTI 
HALT 

LDA 2, TIN 
ISZ TIN 
MOV 0,0, SKP 
ISZ TIN 
LDA 0,LSRB 
STA i,LSR8 
STA 0,LSRCH 
MOV 2, 2, SZR 
MOV 0,0, SNR 
JMP LSRI 
JSR fCXRAND 
KRAN 

LDA 1,LSRCH 
SUb« 0,1, SZR 
HALT 

JMP DISMISS 
LDA 0,0135525 
STA 0,KRAN 
JMP DISMISS 



JKEYBOARD 



;STOP READER 
^KEYBOARD INTERRUPT 



IFLAS CHECK 



KHAR BUFFER 

JTHE CHARACTOR TO USE 



fZERO CHARACTOR 

ICHECK DATA 
;CCl)«BAD,CC0)«SOOD 



A 



AAA 




00565 


027400 


00566 


020375 


00567 


131120 


00570 


1511259 


00571 


133000 


00572 


024402 


00573 


1470Q0 


00574 


101300 


00575 


123725 


00576 


mZ772i 


00577 


047400 


00600 


111300 


00601 


126000 


00602 


107000 


00603 


123404 


00604 


000775 


00605 


101200 


00606 


143300 


00607 


001401 


00610 


006077 


00611 


000105 


00612 


024065 


00613 


125220 


00614 


030106 


00615 


132032 


00616 


000413 


00617 


020073 


0062(4 


040105 


00621 


125220 


00622 


034133 


00623 


133405 


00624 


175005 


00625 


000403 


00626 


060211 


00627 


000377 


00630 


102400 


00631 


010106 


00632 


101001 


00633 


010106 


00634 


063411 


00635 


063611 


00636 


063077 


00637 


061111 


00640 


1263511 


00641 


0637U 


00642 


063077 


00543 


000377 


0*644 


063414 


00645 


063614 


00646 


063077 


00S47 


i£6ttl 14 


00650 


0*30377 



XRANDI 



TYQl 



TY011 



LDA 1,»0,3 

LDA 0,C177 
MOVZL 1,2 
MOVZL 2,2 
ADD 1,2 
LDA i,. + 2 
ADD 2,1 
MOVS 0,0 
ANDZS 1,0, SNR 
JMP XHANO+1 
STA 1,*0,3 
MOVS 0,2 
ADC 1,1 
ADD 0,1 
AND 1,0, SZR 
JMP ,«3 
MOVR 0,0 



clock: 



ICEnERATE A 8 SIT 
;EVEN PARITY RANDOM 

JNUMBER. 



MOVR 0,0 
ADDS 2,0 
JMP 1,3 



JSR $C 
TRAN 
LDA 1, 
MOVZR 
LDA 2, 
ADCZ# 
JMP TY 
LDA 0, 
STA 0, 
MOVZR 
LDA 3, 
AND 1, 
MOV 3, 

JMP ,+ 

NlQC T 
JMP DI 
SUB 2, 



XRAND 

LT 
1,1 
TYPE 
1,2,SZC 

01 

C135525 

TRAN 

1,1 

STT 

2, SNR 

3, SNR 

3 

TO 

SMIS 





|C(0)R«EVEN PARITY NUMBER. 



^TELETYPE OUTPUT 



JLEADER/2 



UNIT RANDOM 



JSMUT DOWN 



ISZ TYPE 

MOV 0,0 f SKP 

ISZ TYPE 

8KPBN TTO 

SKPDN TTO 

HALT 

OOAS 0,TTO 

SKPBZ TTO 

SKPDZ TTO 

MALT 

JMP DISMIS 

SKPBN WTC 
SKPDN RTC 
MALT 

NIOS RTC 
JMP DISMIS 



IPLAC CHECK 

>PLAG CHECK 
ICLOCK INTERRUPT 



A 



AAA 



00651 006077 


.PUN! J8R fCXRAND 


00652 000U1 


.PRAN 


00653 024065 


LDA 1,LT 


00654 030142 


LDA 2, .PUNCH 


00655 132032 


ADCZ* 1,2,3ZC 


00656 000423 


JMP .PUN1 


00657 020073 


LDA 0,C135525 


00660 040141 


8TA 0,,PRAN 


00661 024075 


LDA 1,C177 


00662 034137 


LDA 3,.3TP 


00663 133405 


AND 1,2, SNR 


00664 175005 


MOV 3, 3, SNR 


00665 000413 


JMP -PUN* 


00666 060253 


NIOC ,PTP 


00667 063452 


SKPBN ,PTR 


00670 063752 


8KPDZ .PTR 


00671 000377 


JMP DISMIS 


00672 020072 


LuA 0,ACTIUN 


00673 101300 


MOVS 0,0 


00674 101200 


MOVR 0,0 


00675 101202 


MOVR 0,0, 3ZC 


00676 060152 


NI03 .PTR 


00677 000377 


JMP DISMIS 


00700 102400 


.PUNXt SUB 0,0 


00701 010U2 


.PUNU ISZ .PUNCH 


00702 101001 


MOV 0,0, SKP 


00703 010142 


ISZ .PUNCH 


00704 063453 


SKPBN ,PTP 


00705 063653 


SKPDN .PTP 


00706 063077 


MALT 


2Z7Z7 06U53 


DOAS 0,.PTP 


00710 063553 


SKPBZ .PTP 


ant t * r, c >» i mt 


r* .> r* •* tm **. — •— . 


Wf * * KIO0f3£ 


9*rui ,r\r 


00712 063077 


MALT 


00713 020142 


LDA 0, .PUNCH 


00714 024143 


LDA 1, .READER 


00715 030070 


LDA 2,RPDIF 


00716 106400 


SUB 0,1 


00717 133404 


AND 1,2,SZR 


00720 000377 


JMP DISMISS 


00721 063452 


SKPBN ,PTR 


00722 063752 


SKPOZ .PTR 


00723 000377 


JMP DISMIS 


00724 020072 


LDA 0, ACTION 


00725 101100 


MOVL 0,0 


00726 10U00 


MQVL 0,0 


00727 101100 


MOVL 0,0 


00730 101100 


MOVL 0,0 


00731 101100 


MOVL 0,0 


00732 101100 


MOVL 0,0 


00733 101H2 


MOVL* 0,0, SZC 


00734 060152 


NIOS .PTR 


00735 000377 


JMP DISMISS 



IPUNCH INTERRUPT 
ILEADER/TRAILER 



ISTOP PUNCHING 



IRESTART READER 
IPUNCH LEADER/TRAILER 
ICHARACTOR COUNTER 

IPUNCH FLAG CHECK 



IWHEN PUNCHING AND 
IREADING IT MAY 
IBE NECESSARY TO 
IRESTAPT THE READER 

f EXIT INTERRUPT 



IRESTAPT READER 



13 



AAA 



00736 
02737 

00740 
00741 
00742 
00743 
00744 
00745 
00746 
00747 
00750 
00751 
00752 
00753 

00754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 
00)766 
00767 
QQ77td 
00771 
00772 
00773 
00774 

00775 
00776 
m777 

01000 

010(41 

01002 
01003 
01004 
01011b 
01006 
01007 

01010 

01011 

01012 
01013 
01014 
01015 
01016 
01017 
01020 
01021 



064552 .HSRt 

020144 

044144 

040U5 

030143 

101004 

151235 

000425 

006077 

0U014KJ 

024145 

106414 

063077 

000377 



020(472 
010143 
101001 
010143 
101103 
000755 
020142 
024143 
030070 
1U&400 
133404 
000747 
064652 
000746 
020°I73 
040140 
000377 

020146 
101005 
000403 
060250 
000377 
064550 
063650 
063450 
063077 
0313147 
010147 
101001 
010147 
020150 
04415M 
040151 
151^04 
101005 
000412 
00bid77 
000152 



.HSRH 



.H5R3I 



.LSR* 



OIAS 

LOA 
STA 1 
STA 
LDA 2 
MOV 
MOVZR 
JMP . 
JSR » 
.RRAN 
LDA 1 
SUB* 
HALT 
JMP 



li.PTR 
,.HSRB 
, .HSRB 
,.HSRCH 
, .READER 
,0,SZR 
* 2,2,3NR 
HSR3 
CXRAND 

,.HSRCH 
0,1, SZR 

ISMIS 



fSECOND READER INTERRUPT 



LDA 0, ACTION 
ISZ .READER 
MOV 0,0, 3KP 
ISZ .READER 
MOVL 0,0, SNC 
JMP ,HSR 
LDA 0, .PUNCH 
LDA 1, .READER 
LDA 2,RPDIF 
SUB 0, 1 
AND 1,2, SZR 
JMP .HSR 
DIAC 1,.PTR 
JMP .HSR+1 
LDA 0,C135525 
STA 0, .RRAN 
JMP DISMIS 

LDA 0,,TINEY 
MOV 0,0, SNR 
JMP .+3 
NIOC ,TTI 
JMP DISMIS 
DIAS 1,.TTI 
SKPON .TTI 
SKPBN .TTI 
HALT 

LDA 2, .TIN 
ISZ .TIN 
MOV 0,0, SKP 
ISZ .TIN 
LDA 0, .LSRB 
STA 1,.LS«B 
STA 0,.LSRCH 
MOV 2. 2, SZR 
MOV 0,0, SNR 
JMP .LSR1 
JSK fCXRAND 
.KKAN 



IFIRST CHAR OR ZERO DATA 
}GEN RANDOM CHAR 



fCHECK DATA 
JREADER/PUNCH 
JSECOND DEVICES. 
|C(1)«BAD 



CC0)"GOOD 



IDONT LET READER READ TO MUCH 



fSECOND KEYBOARD 



JSTOP SECOND READER 



fCHAR BUFFER 

ITHE CHARACTOR TO USE 



li 



AAA 



01022 024181 

01023 106414 

01024 069077 

01025 000377 



01026 
01027 

01030 
01031 
01032 
01033 

01034 
01035 
01036 
01037 
01040 
01041 
01042 
01043 
01044 
01045 
01046 
01047 
01050 
01051 
01052 
01053 
01054 

01055 
01056 
01057 

ntnlin 

VillVII 

01061 
01062 
01063 
01064 
01065 
01066 
01067 



000000 
000000 
900000 
020073 
040152 
000377 

006077 
000154 
024065 
125220 
030153 
132032 
000413 
020073 
040154 
125220 
034155 
133405 
175005 
000403 
060251 
000377 
102400 

010153 
101001 
010153 

Ml *» A ■ 4 

063651 
063077 
06U51 
063551 
063751 
063077 
000377 



.ISRlt 



,TYOI 



•TY01I 



LDA 1,.LSRCH 




SUB* 0,1, 3ZR 


I8EC0ND TELETYPE 


MALT 


)CC0)«6OOD,C(l)iBAD 


JMP DISMIS 







LDA 0,C135525 




STA 0,.KRAN 




JMP DISMIS 




JSR #CXRAND 


JSECOND TTY (OUTPUT 


,TRAN 




LDA l,LT 




M0V2R 1,1 




LDA 2, .TYPE 




ADCZ* 1,2, SZC 




JMP .TY01 




LDA 0,C135925 




STA 0,.TRAN 


JINIT RANDOM 


MOVZR 1,1 




LDA 3,.STT 




AND 1,2,SNR 




MOV 3,3,SNR 




JMP .+3 




NIOC .TTO 


ISMUT DOWN 


JMP DISMIS 




SUB 0,0 


PLEADER/TRAILER 


ISZ .TYPE 




MOV 0,0, SKP 




ISZ .TYPE 




c is ou i> tt n 




anro!' .1 |U 




SKPDN .TTO 




MALT 


»FLAG CHECK 


DOAS 0,.TTO 




SKPBZ ,TTO 




SKPDZ .TTO 




MALT 


;FLAG CHECK 


JMP DISMIS 





.EOT 



/r 



/A TEST OF STA, LDA 

/LOAD CCl) FROM BUFFER, STORE CC1J IN BUFFER*!. THIS 

/PROCEEDURE 

HILL FILL THE BUFFER WITH THE VALUE OF THE FIRST WORD 

JIN THE 

/BUFFER. THE CCl) IS TESTED WHEN THE SUFFER HAS BEEN 

/FILLED. 

/BECAUSE THE LAST WORD IN THE BUFFER IS BASED ON THE 

/PREVIOUS 

/WORD ITS CORRECTNESS INSURES THAT THE ENTIRE BUFFER IS 

ICORRECT. 

y IF THE CCl) IS IN ERROR (NOT ZERO) EXAMINE THE BUFFER 

01072 030114 3TA0I LDA 2, BUFF /FIRST LOCATION IN BUFFER 

01071 034U5 LDA 3, FIN JLAST LOCATION IN BUFFER 

01072 102400 SUB 0,0 /CC<O"0 

01073 041000 STA 0,0,2 /VALUE OF FIRST BUFFER WORD 

01074 025000 STA01I LDA 1,0,2 /WORD FROM BUFFER 

01075 045001 STA 1,1,2 /PUT INTO BUFFER*1 

01076 15140B INC 2,2 /MOVE TO NEXT BUFFER LOC 

01077 156014 ADC# 2,3,SZR /TEST FOR END OF BUFFER 

01100 000774 JMP .-4 /MORE WORDS TO OUT PUT 

01101 125014 MOV* 1,1, SZR /FULL BUFFI CHECK CC1)"0 

01102 063«77 HALT /EXAMINE BUFFER FOR ERRORS 

01103 101014 MOV* 0,0, SZR /CC0) WAS CLEARED AT STA0+2 

01104 063077 HALT /NOT OTHERWISE USED! 

M TEST OF STA, LDA 

/THIS TEST IS IDENTICAL TO THE PREVIOUS TEST EXCEPT THE 

/FIRST 

/WORD OF THE BUFFER IS SET TO ALL ONES C177777). 

01105 030114 STA02J LDA 2, BUFF /BUFF CONTAINS FIRST BUFFER LOC 

01106 034115 LDA 3, FIN /THE LAST LOCATION IN BUFFER 

01107 102000 ADC 0,0 /C0)«177777 

01110 041000 STA 0,0,2 /VALUE OF FIRST BUFFER WORD 

01111 025000 STAB3J LDA 1,0,2 /WORD FROM BUFFER 

01112 045001 STA 1,1,2 /PUT INTO BUFFER+1 

01113 151400 INC 2,2 /ADVANCE TO NEXT LOCATION 

01114 156014 ADC* 2,3, SZR /TEST FOR END OF BUFFER 

01115 0&H1774 JMP .-4 /MORE TO FILL 

01116 124014 COM* 1,1, SZR /CHECK CCl) FOR 177777. 

01117 063^77 HALT /EXAMINE CCBUFFER) FOR ERROR 

01120 100014 COM* 0,0, SZR /CC0) WAS MODIFIED DURING 

01121 ie63i«77 HALT /THIS TEST1 ? 



// 
Ik* 



AAA 



;fill and check buffer, a buffer of alternating bits 

01122 6330114 STA04I LDA 2, BUFF fFIRST LOCATION OF THE BUFFER 

01123 034U5 LDA 3, FIN >LAST LOCATION OF THE BUFFER 

01124 02042? LDA 0,C52525 

01125 104000 COM 0,1 

0112b 04500P STA 1,0,2 fBUFFER 3 125252 

01127 041001 STA 0,1,2 IBUFFER ■ 052525 

01130 02100P STA05S LDA 0,0,2 |THIS PAIR OF 40R0S 

01131 151400 INC 2,2 |IS MOVED THROUGH THE 

01132 156015 ADC* 2,3, SNR ;BuFFER 

R1133 0I0ICI774 Imp _ a 

www—- — ar !— v f w —r W I ' I g"-«t 

01134 02100C5 STA(*6! LDA 0,0,2 |G£T BUFFER'S LAST AND 

01135 025377 LDA 1,-1,2 fLAST-1 WORSDS 

01136 123020 ADDZ 1,0 |CC0) SHQULDi 177777 

01137 1*0014 COM* 0,0, SZR ;BUFFER SHOULD CONTAIN 

01140 063*77 HALT JALTERMTING WORDS 

01141 101012 MOV* 0,0, SZC /EXAMINE BUFFER FOR ERRORS 

01142 063077 HALT jHQw DID CARRY CHANGE? 

01143 101011 MliVs 0,0, SKP JSKIP OVER CONSTANT 

01144 052525 C52525: 052525 

;MAKE SURE THAT ALL LOCATIONS IN THE BUFFER EXIST. 
JSTORE A ADDRESS PATTERN (EACH LOCATION CONTAINS ITS 
,* ADDRESS). 

I IF STA w£RE ATTEMPTING TO STORE A 24M IN LOCATION 
7 2400 

fdUT INSTEAD STORED IN 2000, THE CONTENTS OF 20PI0 WOULD 
JCONTAIN 2400. ONE SHOULD SUSPECT MA BIT 7 OR OTHER 
|MtMU*Y ADDRESS DECODING, 

01U5 10240P STA10S SUb 0,0 »CC0) NOT USED THIS TEST 

01146 034114 LDA 3, BUFF ;FIRST LOCATION OF BUFFER 

01147 B24H5 LDA 1,FIN ;LAST LOCATION OF BUFFER 

01150 0554^0 6TA11 : STA 3,d,3 JSTORE THE ADDRESS AT ADDRESS 

01151 03l40fr< LDA 2,0,3 fLOAD CC2) WITH DATA JUST 

01152 150414 SU&* 2,3,SZR /STORED. CC3D-DATA SENT, 

01153 io63077 HALT fC (3) "ADDRESS, C C2) -RECEIVED 

01154 175400 INC 3,3 | IMC TO NEXT AOOR 
0115b 136414 jjUbtt 1,3,SZR JTEST FOR END OF BUFF 

01156 000772 JMP STA 1 1 

01157 034114 STA12J LDA 3, BUFF JCORE SHOULD BE FILLED WITH 

01160 U3142FI LDA 2,0,3 JAQDRESS PATTERN. GET WORD 

01161 156414 subs 2,3,SZR »CC2) SHOULD EQUAL CC3) 

01162 0631^77 HALT JLOOK FOR PATTERN OF ERRORS 

01163 176400 InC 3,3 |G0 TO NEXT ADDRESS 

01164 196414 SU6» 1,3, SZR MEST FOR END OF BUFFER 

01165 0wio773 JMp STA12 + 1 ftfORE TO GO 

01166 101014 STA13: n U V « 0,0, SZR JCMANGE TO (JMP STA10) FOR LOOP 

01167 063077 nALT >C(0) NOT USED THIS TEST1 

n 



AAA 



ITHIS IS A ADDRESS TEST IN WHICH EACH LOCATION IN THE 

JBURFER 

^CONTAINS THE COMPLEMENT OF ITS ADDRESS. IF A FAILURE 

J0CCURE3 .»»„-. 

^EXAMINE THE BUFFER AND TRY TO FIND A PATTERN OF ERRORS 
ILDA AND STA HAVE PREVIOUSLY WORKED WITH A SIMULAR 
IPATTERN, 

01170 B34U4 STA20I LDA 3, BUFF >C(3)"FIRST BUFFER LOCATION 

01171 024115 LDA 1,FIN |C(15«LA8T BUFFER LOCATION 

01172 160005 STA2H COM 3,0,SNR |THE CONTENTS OF 3 SHOULD 

01173 063077 HALT IALLWAY3 PRODUCE NOT ZERO 

01174 041400 STA 0,0,3 fSTORE LOGICAL COMPLEMENT 

01175 031400 LDA 2,0,3 JOF ADDRESS IN ADDRESS 

01176 142M4 $UB# 2,0,SZR |CC2) SHOULD BE SAME AS 

01177 063077 HALT JCC0) WHICH WAS STORED. 

01200 17540P INC 3,3 |INC TO NEST ADDRESS 

01201 136414 SUB* 1,3, SZR ITEST FOR END OF BUFFER 

01202 000771* JMP STA21 |NOT YET END OF BUFFER 

01203 034114 STA22J LDA 3, BUFF fRESET CC3J TO FIRST LOCATION 

01204 031400 LDA 2,0,3 |IN THE BUFFER. WORD FROM 

01205 140000 COM 2,0 fBUFFER SHOULD BE COMP OF 

01206 116414 SUB* 0,3, SZR fADDRESS IN 3. CC2J-BUFFER WD 

01207 063077 HALT >CC0)-ITS COMP. CC3)«ADDRESS 

01210 175400 INC 3,3 ^INCREMENT TO NEST ADDRESS 

01211 136414 SUB* 1,3, SZR ;TEST FOR END OF BUFFER 

01212 0H0772 JMH STA22+1 ;MORE WORDS TO CHECK 

01213 101010 MOV* 0,0 IREPLACE WITH CJMP STA20) TO 

ILOOP 



K 



AAA 



/a test of jsr 

;this program will execute a jsr instruction to every 

/location 

un the suffer. each location in the buffer contains 

/A(JSR 1,3) 

/INSTRUCTION. THE JSR RETURN FROM THE SUFFER WILL BE TQ 

/THE 

/CALLING (JSR TO BUFFER) +2. THE RETURN FROM THE BUFFER 

MILL 

/ALSO STORE THE PC (PROGRAM COUNTER) OF THE BUFFER 

/INSTRUCTION+i 

/IN CO). C(2) POINTS TO THE BUFFER LOCATION TO BE 

/EXECUTED. 

/CC3)-1 INDICATES WHICH LOCATION IN THE BUFFER WAS 

/EXECUTED. THE 

/C(3) SHOULD BE ONE GREATER THAN THE BUFFER POINTER IN 
/CC2). 



01214 
01215 
01216 
01217 
01220 
01221 
01222 
01223 



1025216 
034114 
030421 
024H5 
0514&C* 
175400 
166414 
000775 



JSR10I 



SUbZL 0,0 
LOA 3, BUFF 
LDA 2,CJSR10 
LDA 1,FIN 
STA 2,0,3 
INC 3,3 
SU6# 3,1,SZR 
JMP .-3 



/LOOP ON ERR SWITCH 
ZCC3)»FIRST BUFFER LOCATION 
/CONSTANT (JSR 1,3) 
/C(1)«FINAL BUFFER LOCATION 
/FILL THE BUFFER 
/WITH JSR INSTRUCTIONS 
/TEST FOR END OF THE BUFFER 
/MORE WORDS TO STORE 



01224 030114 

01225 DfiSBiBF 

01226 063077 

01227 156014 



JSRHI 



01230 
01231 
01232 
01233 
01234 
01235 
01236 
01237 



063077 

15bBi 4 
102400 
113000 
146414 
0140770 
101011 

005*01 



CJSRia: 



LDA 2, BUFF 

JSH 0,2 

HALT 

ADC* 2,3,SZR 

HALT 

ADC* 9 -, 3, SZR 
SUB 0,0 
ADD 0,2 
SUb« 2,1, SZR 
JHP JSR11+1 
MOV# 0,0, SKP 
JSR 1,3 



/C(2)iFIRST BUFFER LOCATION 

/GO TO THE BUFFER! C£3)« 

/RETURN ADDR. FAIL TO PC XFER 

/CHECK NEW CC3) FROM JSR IN 

/BUFF 

ZC£3)SH0ULD«CC2)+1. WENT WRONG 



/NEXT BUFF LOC.TEST FOR 
/MORE LOCATIONS IN BUFF 
/SKIP OVER CONSTANTS 



END 



/? 



AAA 



M TEST OF JMP 

|THIS PROGRAM HILL EXECUTE A JMP TO EVERY LOCATION IN 

|ThE BUFFER. 

ITHE BUFFER CONTAINS A (JSR 1,3) INSTRUCTION IN EACH 

IUOCATION. 

|THE VALUE IN CC3) IS SET SUCH THAT THE JSR IN THE 

J8UFFER VnXLL 

fRETURN TO THE MAIN PROGRAM, THE PROGRAM THEN CHECKS 

JTHE PC 

/PROGRAM COUNTER) STORED BY THE BUFFERS" JSR 

/INSTRUCTION. THIS 

JPC SHOULD BE ONE GREATER THAN THE LOCATION JUMPED TO. 



01240 
01241 
01242 
01243 
01244 
01245 
01246 
PI1247 
01250 
01251 
01252 
01253 
01254 
01255 
01256 



126520 

020115 
030114 
034413 
00100^ 
063077 
156014 
063077 
156014 
126400 
133000 
142414 
000767 
101011 
001245 



JMP10J 



JMP11I 



cjmpii: 



SUBZL. 1,1 

LDA 0,FIN 

LDA 2, BUFF 

LDA 3,CJMPH 

JMP 0,2 

HALT 

ADC* 2,3,SZR 

HALT 

ADC* 2,3,SZS 

SUB 1,1 

ADD 1,2 

SUB* 2,0,SZR 

JMP JMP10+3 

MOV* 0,0, SKP 

JMP11-1 



ILOOP ON ERR SrfIT 
;FINAL ADDRESS OF 
/FIRST ADDRESS OF 
JC(3)"A RETURN TO 
/GO TO A LOCATION 
/NO JMP? INDEX+1 



BUFFER 
BUFFER 
THE PROG 
IN BUFFER 
IN BUFFER? 



/CHECK PC STORED BY BUFFER JSR 
»C(2)«JHP ADDRESS, CC3)«JSR PC 



/TEST FOR END OF THE BUFFER 
;NOT YET END OF BUFFER 
/SKIP OVER THE CONSTANT 
/CONSTANT 



.EOT 



&> 



M TEST OF POSITIVE DISPLACEMENT USING THE "LDA» 
/INSTRUCTION 

;ThE BUFFER IS FILLED WITH A ADDRESS PATTERN 

I CC(ADDRESS)«ADDR£SS). 

/C(3) POINTS TO A LOCATION IN THE BUFFER.. A »LDA» 

/INSTRUCTION 

/WITH A POSITIVE DISPLACEMENT THEN REFFERANCES THE 

/SUFFER VIA 

/INDEX REGISTER 3. THE EFFECTIVE ADDRESS IS THE SUM OF 

,'THE INDEX 

/REGISTER VALUE AND THE DISPLACEMENT. C (2) -EFFECTIVE 

/ADDRESS 

/OBTAINED, CCl)«CORRECT EFFECTIVE AnDSFSS . r r:o .Twnsrv tor. 

/VALUE 

;C(P0SX2)pFAILING INSTRUCTION--OISPLACEMENT IN BITS 
/8-15 



01257 03411* POSXZ LDA 3, BUFF 
21263 024115 LDAi,FlN 

01261 fc5540fl STA 3,0,3 

01262 1754e? INC 3,3 
B1263 136414 auts* 1,3,SZR 

01264 KJ8ifc775 JMP POSX+2 

01265 Itf3f)42b LOA 2,CLDAPX 

01266 0504;! l STA 2,P0SX2 

01267 f»2iel2K POSXli lDa 0,C3 



0127tf ^244^7 

01271 l«70(2l" 

01272 M44i>5 

01273 020421 

01274 l«fr032 

01275 0»fc42P 

1276 034 1*4 

01277 (S000RP P0SX2: 

01300 024777 

01301 02012? 

01302 107401* 

01303 1&7HS0P 
013w4 14b4i4 

0131^5 \6b1*77 

01306 it- 2 1 1 fo 

01307 l754G*r- 

01310 116414 

01311 0«k-76«J 

01312 it-00755 



01313 ic3l4b^ 

01314 031577 
013)5 1 id 1 io l (^ 



LOA l,POSX2 
ADD 0,1 
ST* 1,PUSX2 
UDA 0,POSFIN 
ADCZ« 0,1, SZC 
JMp POSND 



U U * 





•a u < i c c 
sJ , our r 



CLDAPX: 
PUaFiNj 

P u a n l? : 



LDA 1,.-1 
LOA 0,C377 
ANU 0,1 
ADD 3,1 
5L'B« 2,1,SZ« 
HALT 

LOA 0,FIN20P! 
in-C 3,3 
SUb« 0,3,SZR 
JMP P0SX2 
JMP posxi 

LDA 2,P,3 
LL'A 2,177,3 
nuvs y,B 



/FIRST BUFFER LOCATION 
/LAST BUFFER LOCATION 
/STORE A ADDRESS PATTERN 
/IN THE SUFFER 
JCCBUFFERWDDRESS OF BUFF 
/EXAMPLE: CC3015)*3015 
/CONSTANT CLOA 2,0,3) INST 
/INITIALIZE THE INSTRUCTION 

,'AUD 3 TO THE INDEX 

ZDISPLACEMENT«- 

»h£NT OF THE LOA INSTRUCTION 



/END TEST FOR DISPLACEMENT 

/GO TO NEXT TEST 
fir THIS TEST FAILS PLACE 
/CJMP .-1) AFTER THIS 
/INSTRUCTION 
/CCP0SX2)«L0A 2,N,3 
/INSTRUCTION DISPLACEMENT 
ITO CC1). THIS DISPLACEMENT 
/+INDEX VALUE»EFFECTIVE ADDRESS 
/C(1)»EFFECTIV£ ADDRESS, C (23 ■ 
/WORD OBTAINED, CC2) WRONG 
/THIS DISPLACEMENT WILL BE 
/TRIED WITH OTHER LOCATIONS 
/IN THE BUFFER 

/NEXT DISPLACEMENT 

/CONSTANT FIRST DISPLACEMENT 
/CONSTANT FINAL " 
/REPLACE WITH JMP TO LOOP 



SH 



*AA 



M TEST OF NEGATIVE DISPLACEMENT USING "LDA" 
JTHE BUFFER IS FILLED WITH A ADDRESS PATTERN 
J CC(ADDRESS)»ADDRESS). A "LDA" INSTRUCTION 
IWXTM A NEGATIVE DISPLACEMENT THEN REFFERANCES 
ITHE SUFFER VIA INDEX REGISTER 2. THE EFFECTIVE 
MDDRESS IS THE VALUE OF THE INDEX REGISTER 
JMINUS THE DISPLACEMENT VALUE. C C3) "EFFECTIVE 
IAUDRESS OBTAINED, CCD-CORECT EFFECTIVE ADDRESS, 
;C(2)«INDEXING VALUE, C (NEGX2) "FAILING INSTRUCTION 
DISPLACEMENT IN BITS 8-15. 



01316 034114 NEGXI LDA 3, BUFF 

01317 024115 LDA 1,FIN 

01320 055400 STA 3,0,3 

01321 175400 INC 3,3 

01322 136414 SUB* 1,3,SZR 

01323 000775 JMP NEGX+2 

01324 030431 LDA 2,NEGFIN 

01325 050412 STA 2,NEGX2 



JFIRST BUFFER LOCATION 
IFINAL BUFFER LOCATION 
JFILL THE BUFFER WITH A 
MDDRESS PATTERN. FOR 
JEXAMPLEJ C(3417)"3417 
;C(4150)*4150 
UNITIALIZE THE LDA INST 
|TO (LDA 3,377,2) 



01326 020120 NEGXI! LDA 0,C3 

01327 024410 LDA 1,NEGX2 

01330 106400 SUB 0,1 

01331 044406 STA 1,NEGX2 

01332 020424 LDA 0,NEGXX 

01333 1*6033 ADCZ* 0,1, SNC 

01334 000423 JMP NEGND 

01335 000401 JMP NEGX2-1 



^SUBTRACT (3) 
DISPLACEMENT 



FROM THE LDA'S 



|PUT IT BACK IN CORE 

JTEST FOR A POSITIVE 

DISPLACEMENT 

>END. GO TO NEXT TEST 



01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 



03EH7 
000000 
024777 

020122 
1^7400 
100000 
127000 
147000 
136414 
063077 
02E1 15 
15140B 
112414 
00I&764 
0KH0752 



NEGX2: 



LDA 2,BUF200 


LDA i,.-l 
LDA 0,C377 
AND 0,1 
COM 0,0 
ADD 0, 1 
ADD 2,1 
SUB* 1,3,SZR 
HALT 

LUM Hi , r A i> 

INC 2,2 
SUB* 0,2,SZR 
JMP NEGX2 
JMP NEGXI 



JFIRST BUFFER LOCATION+200 
^BECOMES! LDA 3,-N,2 11 
JGET DISPLACEMENT BITS 
»MASK THE INSTRUCTION PART 



ICC1WHE EFFECTIVE ADDRESS 
JC(2)*THE INDEXING VALUE 
IC C3D "THE ADDRESS OBTAINED 
IINST AT NEGX2 FAILED 

• ii c c ylitc n t e o i 
, \J u c in A J uigru 



ACEMENT 



IWITH OTHER LOCATIONS IN THE 

JBUFFER 

JNOT BUFFER END 

|END,TRY NEW DISPLACEMENT 



0135b t 35377 

01356 035200 

01357 141010 



NEUFINI 

negxx: 

ISECND! 



LDA 3,-1,2 

LDA 3,-200,2 

riuva 0,0 



JCONSTANTI DISPLACEMENT-1 
JCONSTANT! DISPLACEMENT OF -177 
rPEHLACE WITH JMP TO LOOP TEST 






AAA 



01360 
21361 
01362 
01363 
01364 
01365 
01366 
01367 
01370 

01371 
01372 
01373 
01374 
01375 
01376 
01377 

01400 
01401 
01402 
01403 
01404 
01405 
01406 
01407 
01410 
014U 
01412 
01413 
01414 
01415 

01416 
01417 
01420 
01421 
01422 



034114 
024115 
030435 
051400 
175400 
166414 
000774 
020427 
040416 

020121 
024414 
107000 
044412 
020423 
106032 
000423 

030114 
020116 
151400 
l«24l5 
000765 
034414 
000000 
024777 
020122 
107400 
147000 
136014 
063077 
000764 

001000 
205400 
001177 
001407 
101010 



/A TEST OF 
ITHE BUFFER 
/THUS WHEN 
|SE 3ET TO 
/WITH A F03 
/INDEX REG! 
MILL RETUR 
/C<3). THE 
/WITH CC3). 
/VALUE, C(l) 
/RUCTION, DI 



POSITIVE DISPLACEMENT U8XNS 
IS FILLEO WITH (J8R 0,3) I 
A JSR IN THE BUFFER IS EXEC 
THE BUFFER LOCATION^. A "J 
ITIVE DISPLACEMENT GOES TO 
STER 2. THE JSR INSTRUCTION 
N TO THE PROGRAM SAVING ITS 
EFFECTIVE ADDRESS OF THE "J 
CC3)«1«L0CATI0N JUMPED TO, 
■EFFECTIVE ADDRESS, CCP0SJ3) 
SPLACEMENT IN BITS 8-15. 



THE «JMP«. 
NSTRUCTION8 
UTED C(3) WILL 
MP« INSTRUCTION 
THE BUFFER VIA 

IN THE BUFFER 

LOCATION 41 IN 
MP" IS COMPAIRED 

C(2)«XNDEX 
■FAILING INST- 



POSJI 



PQSJ1I 



P0SJ2! 



PQSJ3I 



PU8JZI 
POSJXI 
POSJFI 
POSJYI 
POSJNOl 



LDA 3, BUFF 
LDA 1,FIN 
LDA 2,PQ3JX 
STA 2,0,3 
INC 3,3 
SUB* 3,1,8ZR 
JMP POSJ+2 
LDA 0,POSJZ 
STA 0,PO8J3 

LDA 0,C5 
LDA 1,P0SJ3 
ADD 0,1 
STA 1,PQSJ3 
LDA 0,POSJF 
ADCZ* 0,1, 8ZC 
JMP POSJND 

LDA 2, BUFF 

LDA 0,FIN200 

INC 2,2 

SUB* 2,0,SNR 

JMP POSJI 

LDA 3,P0SJY 



LDA 1,,-i 

LDA 0,C377 

AND 0,1 

ADD 2,1 

ADC* 1,3,SZR 

HALT 

JMP P08J2+1 

JMP 0,2 
JSR 0,3 
JMP 177,2 
P0SJ3+1 

MOV* 0,0 



IFIRST LOCATION IN BUFFER 
/FINAL LOCATION IN BUFFER 
f FILL THE BUFFER WITHCJSR 0,3) 
/INSTRUCTIONS 

/TEST FOR END OF BUFFER 
IMORE LOCATIONS TO FILL 
UNITIALIZE THE JUMP 
/WITH POSITIVE DISPLACEMENT 

/INCREASE POSITIVE DISPLACE 
/BY FIVE 

/NEW "JMP" INSTRUCTION 
/ANY MORE ♦ DISPLACEMENTS 
/TO GO 
/NO GO TO NEXT TEST 

/FIRST LOCATION IN BUFFER 
/FINAL LOCATION IN BUFFER 
/POINT TO NEXT BUFFER 
/LOCATION. IS IT THE LAST? 
/YES TRY NEW DISPLACEMENT 
/SETUP CC3) FOR BUFFER RET 
/"THE" JMP INSTRUCTION 

/CALCULATE THE EFFECTIVE 
/ADDRESS OF THIS JUMP 
/CCINOEX)+DISPLACEMENT 
/CC1)"EFFECTIVE ADDRE88,C(3) 
/JSR PC,CC2)aINDEX VALUE 
/GO AGAIN AT NEXT LOC 

/CONSTANTS 
/" 



/REPLACE WITH JMP TO LOOP 



«?3 



AAA 



01423 230432 

01424 050415 



01425 
01426 
01427 
01430 
01431 
01432 
01433 

01434 
01435 
01436 
01437 
01440 

01441 
01442 
01443 
01444 
01445 
01446 
01447 
01450 
01451 
01452 
01453 



020120 
024413 
106400 
04*411 
020423 
106052 
000423 

030117 

020115 
151*40 
142435 

000765 

000000 

024777 

020122 
107403 
063077 
100000 
107000 
1«7000 
136014 
063077 
^00762 



|A TEST QF NEGATIVE DISPLACEMENT U8ING "JSR» 
jTHE BUFFER IS FILLED WITH CJSR 0,35 INSTRUCTIONS. 
|THE BUFFER IS ENTERED WITH A JSR VIA C£3) WITH A 
^NEGATIVE DISPLACEMENT IN BITS 8-15. EFFECTIVE 
JADDRESS CALCULATION SHOULD SUBTRACT THE DIS- 
PLACEMENT FROM THE VALUE IN INDEX REGISTER 3. 
|THE JSR IN THE BUFFER WILL RETURN TO THE PROGRAM 
JSAVING ITS LOCATION +1 IN C(3). COMPARISON OF 
CALCULATED EFFECTIVE ADDRESS AND CC3) DETERMIN 
HF THE BUFFER WAS ENTERED CORRECTLY. 



NEGJI LDA 2,NEGJY 
STA 2,NEGJ3 

NEGJll LDA 0,C3 

LDA 1,NEGJ3 
SUB 0,1 
STA 1.NEGJ3 

LDA 0.NEGJX 
ADCOft 0,1, SZC 
JMP NEGJD 

NEGJ2I LDA 2,BUF200 
LDA 0,FIN 
INCO 2,2 
SUBZ* 2,0,SNR 
JMP NEGJI 



NEGJ3J 



01454 005200 

01455 005377 

01456 101010 



NEGJXJ 
NEGJYl 
NEGJDS 



LDA 1,.-1 
LDA 0,C377 
AND 0,1, SNC 

MALT 

COM 0,0 

ADD 0,1 

ADD 2,1 

ADC* 1,3,SZR 

HALT 

JMP NEGJ2+1 

JSK -200,2 
JSR -1,2 

MOV» 0,0 



|C(2]aC0NSTANT CJSR -1,2) 
ISTORE "THE" JSR 

DECREMENT THE VALUE OF 
|THE DISPLACEMENT BY 3. 
IEACH DISPLACEMENT IS TEST- 
JED WITH THE BUFFER 

DISPLACEMENT END TEST 
jGQ TO NEXT TEST 

IFIRST ADDRESS+200 IN BUFFER 
JTHIS ROUTINE SETS CARRYiU 
FITS TESTED LATER1 INC BUFF 
JA0DRE8S AND TEST FOR END 
TEND, GET NEW "JSR" 

JGO TO THE BUFFER HEREl 
JOBTAIN THE EFFECTIVE 
JAQDRESS IN ecu 
>THE CARRY SHOULD NOT HAVE 
JCHANGED1 SEE ABOVE 



JCHECK EFFECTIVE ADDRESS 
fCHECK EFFECTIVE ADDRESS 
JWITH PC OF BUFFER JSR IN 
|C(3),CC2)"INDEX VALUE 



^CONSTANT 
»CONSTANT 
IREPLACE WITH 



JMP TO LOOP 



AAA 



/TEST THAT PC WILL COUNT THROUGH THE BUFFER. 

01457 004114 PINCI LDA 3, BUFF 

01460 024H5 LDA 1,FIN 

01461 fc2Mi5 LDm 0,CINC jFILL THE BUFFER 

01462 041400 PINCH STA 0,0,3 /WITH INC INSTRUCTIONS 

01463 175400 INC 3,3 

01464 136414 SUB* 1,3,SZR 

01465 000775 JMP PINCI 

01466 0204U LDA 0,CPINC 

01467 041400 STA 0,0,3 IPUT JMP IN LAST LOC 

01470 B3M10 PINC2: LDA 2,PINCR |C(2)«RETURN TO PROG 

01471 034114 LDA 3,bUFF 

01472 001400 JMP 0,3 ;G0 TO BUFFER 

01473 136414 PINC3! SUB* 1,3,SZR fBUFER INST SHOULD COUNT 

01474 063077 HALT ;C(1)«C0RRECT 

01475 0^0404 JMP .+4 f C C33 »BUFF+INC RESULT 

01476 175400 CINCI INC 3,3 

01477 001000 CPINC: JMP 0,2 

01500 001473 PINCRJ PIMC3 

01501 1010?P HOV 0,0 JCHANGE TO LOOP TEST 



.EOT 



as - 



M TEST OF I8Z ABILITY TO NOT SKIP 

/THE C(TEM) IS SET TO 0. INCREMENTING TO 000011 SHOULD 
INOT CAUSE A SKIP. PRESSING CONTINUE AFTER A ERROR MILL 

fCAUSE THE PROGRAM TO LOOP ON ERROR UNTILL RESTARTED. 

01502 102520 ISZ0I SUBZL 0i0 |C(0)«1,LOOP ON ERROR SWITCH 

01503 024122 LDA 1,C377 fNUMBER OF ITERATIONS 

01504 152000 ADC 2,2 I C C23 NOT USED THIS TEST 

01505 176400 SUB 3,3 »THE VALUE STORED (0) 

01506 054107 ISZ1I STA 3,TEM ISTORE FOR INCREMENT 

01507 060377 NIUP CPU JSYNO AT 7-A74 

01510 010107 ISZ TEM f INC A ZEROS WORD 

01511 0004e4 JMP ,+4 JJMP PAST THE ERROR 

01512 020107 LDA 0,TEM fISZ SKIPPED C(0)iRE8ULT 

01513 063077 HALT |OF ISZ. CORRECT VALUE" ♦! 

01514 102400 SUB 0,0 fLOOP ON ERR SWITCH 

01515 106404 SUB 0,1, SZR fITERATE THE PROGRAM 

01516 BBB770 JMP I8 Z1 

01517 150014 COM* 2, 2, SZR JC(2) MODIFIEDli CHECK ISZ 
0152B 063077 HALT IREPLACE TO LOOP TEST 

;A TEST OF ISZ ABILITY TO NOT SKIP 

|THE C(TEM) IS SET TO -2 C177776) . INCREMENTION TO -1 

ISHOULD NOT CAUSE A SKIP, PRESSING CONTINUE AFTER A 

lERRUR WILL CAUSE THE PROGRAM TO LOOP ON ERROR UNTILL 

^RESTARTED. 

01521 102520 ISZ2I SUBZL 0,0 >CC0)«1»LQQP ON ERROR SWITCH 

01522 024122 LDA 1,C377 ;CC1)»NUMBER OF ITERATIONS 

01523 152400 SUB 2,2 ICC2) NOT USED THIS TEST 

01524 176120 ADCZL 3,3 |C(3)«-2 (177776) 

01525 054107 ISZ3t STA 3, TEM fSTORE AND THEN INCREMENT IT 

01526 06B377 NIOP CPU |SYNC AT 7-A74 

01527 010107 ISZ TEM I ISZ SHOULD NOT SKIP 

01530 0004IM JMP . + 4 JJMP PAST THE ERROR 

01531 0210107 LDA 0,T£M fCC0)>XSZ RESULT 

01532 063077 HALT JIT SHOULD BE 177777 

01533 102401 SUB 0,0, SKP JISZ LOGIC FAIL 

01534 106404 SUB 0,1, SZR ^ITERATION COUNTER 

01535 000770 JMP ISZ3 

01536 151014 HOV* 2,2,5Z« >C(2J MOOIFItU U 

01537 063B77 HALT ICHANGE MOV TO LOOP TEST 



<3C 



AAA 



;a test of isz ability to skip 

/THE CCTEM) IS SET TO -1 C177777). INCREMENTIOG TEM 
/TO SHOULD PRODUCE A ISZ SKIP, 



01940 

01541 
01542 
01543 
01544 
01545 
01546 
01547 
01550 
01551 
01552 
01553 
01554 
01555 
01556 
01557 



1(92520 
126620 
152000 
050107 
060377 
010107 
000404 
107004 
000773 
000405 
020107 
063077 
102400 
000766 
101234 
063077 



01560 15252P 

01561 102620 

01562 143005 

01563 000422 

01564 040107 

01565 060377 

01566 010107 



01567 
01570 
01571 
01572 
01573 

01574 
01575 
01576 
01577 

01600 
01601 
01602 
01603 
016U4 
01605 
01606 
01607 
01610 
01611 



101011 
000410 
024107 
106015 
000767 

115400 
063077 
152400 
000763 
11542)5 

000410 
024107 
063077 
000772 
102000 
024107 
063077 
000766 
101010 



ISZ4I SUBZL 0,0 

SUBZR 1,1 

ADC 2,2 
ISZ5I STA 2, TEH 

NIOP CPU 

ISZ TEM 

JMP ISZ6 

ADD 0,1, SZR 

JMP ISZ5 

JMP I8Z7 
I3Z8I LDA 0,TEM 

HALT 

SUB 0,0 

JMP I8Z5 
ISZ7I MOVZR* 0,0, SZR 

HALT 



?CC0)«1,LOOP ON ERROR SWITCH 

;CC13«100000, ITERATION COUNT 

|CC2)«177777 

/STORE THE (-1) 

/SYNC AT 7-A74 

/INC IT SHOULD SKIP! 

IFAXL TO SKIP, ISZ FAIL 
iTTPBATrnu eniiniTB'D 

r * I l»n« I •«!! w ** W C* I b re 

/CONTINUE TEST 
/END OF THIS TEST 
/C(0)iRESULT OF FAIL ISZ 
/CORRECT VALUE-0 
/CLEAR C(0) TO LOOP 
ION ERROR FOREVER 
/REPLACE TO LOOP TEST 
ICC0) SHOULD BE fl 



/the result of a isz instruction is checked with a add. 
mod is presumeo to work, the isz increment logic, skip 
/and no skip is checked, pressing continue after a error 
/will cause the program to loop untill restarted, 



ISZ10I 



ISZ1H 



ISZ12I 



ISZ13I 



ISZ14: 



SUBZL 2,2 
SUBZR 0,0 
ADD 2,0,3NR 

JMP ISZ13 
STA 0,TEM 
NI0P_CPU 
ISZ TEM 
MOV* 0,0, SKP 
JMP ISZ12 
LDA i,TEM 
ADC# 0,1, SNR 
JMP ISZ10+2 

INC 0,3 

HALT 

SUB 2,2 

JMP 

INC 

JMP 

LDA 

HALT 

JMP ISZ12-2 

ADC 0,0 

LDA 1,TEM 

HALT 

JMP ISZ12-2 

MOV* 0,0 



ISZ10+2 
0,3, SNR 
ISZ14 

1,TEM 



;cc2)«i 

;C(0)«100000 

/UPDATE THE COUNT BY I 

» ISZ FAIL TO SKIP ON 177777 

/STORE THE VALUE FOR ISZ 

/SYNC A 7-A74 

/"THE" ISZ 

/ISZ SHOULD SKIP AT END OF TEST 

/ONLY 

/DOES VALUE OF TEMnCQUNT+1 

/IN CC0) 

/YES KEEP CHECKING 

/CC1)"ISZ COUNT, C(3J«C0RRECT 
/ISZ INCREMENT LOGIC FAILED 
/CLEAR CC2) TO LOOP ON ERROR 

/ISZ SKIPPED WAS THAT OK? 
/YES. EXIT THIS TEST 
ICCIJiISZ COUNT, C(3)«INC COUNT 
7CCDSHOULD ■ C(3),SKIP OR NOT 
/CLEAR COUNT AND LOOP ERROR 
/ISZ FAIL TO SKIP ON 
/C(TEM)—1,C(1)«ISZ COUNT 
/LOOP ON ERROR 

/CHANGE TO LOOP TEST 



57 



AAA 



/A TEST OF ISZ 

/FIVE CONSECUTIVE ISZ INSTRUCTIONS TO LOCATION"TEM» ARE 

/EXECUTEU.THE VALUE IN CCTEM) SHOULD EQUAL C(3) 

/THE NUM&EtfS ARE ARRANGED SUCH THAT NO ISZ INSTRUCTION 

/SHOULD SKIP. SHOULD THE TEST FAIL PRESSING CONTINUE 

/WILL PLACE THE PROGRAM IN A FAILING LOOP UNTILL 

/RESTARTED. 



01612 
01613 
01614 
01615 
01616 
01617 
01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 
0163m 
01631 
01632 
01633 
01634 
01635 



01636 
01637 

01640 
01641 
01642 
01643 
01044 
01645 
01S46 
01647 
Id) 165tf 
01651 
01652 
01653 
01654 
01655 
01656 
01657 
01660 
01661 
01662 
01063 



030121 
102400 
034121 
117022 
0100417 
040107 
060377 
010107 
010107 
010107 
010107 
010107 
024107 
136414 
063377 
136414 
152400 
143^00 
000760 
101310 



ISZ20I 



102920 
024115 
03011* 
176000 
055000 
06*377 

011200 

000412 
035*303 
175014 
000405 
113000 
132414 
03B75fi 
000 4 07 
t63077 
040403 
035000 
063077 
102400 
000757 

101010 



ISZ2H 



ISZ22: 



LDA 2 
SU6 
LDA 3 
ADDZ 

JMP I 
STA 
NIOP 
ISZ T 
ISZ 
ISZ 
ISZ 
ISZ 
LDA 1 
SUB* 
MALT 
SUB* 
SUB 2 
ADU 2 
JMP I 
HOVtt 



,C5 

,0 

,C5 

0,3,SZC 

SZ22 

,TEM 

CPU 

EH 

EM 

EM 

Em 

EM 

,TEM 

1,3,SZR 

1,3,SZR 
,2 

#0 
SZ20+2 

0,0 



/C(2)«ERR0R SWITCH 
/START WITH C(0)«0 
/CC3)«EXPECTED RESULT OF 
r ISZ. ALSO TEST FOR END 
;G0 TO NEXT TEST 
/STORE THE VALUE TO BE INC 
/SYNC AT 7-A74 
/DO IT 5 TIMES 



fCCl)»RESULT OF ISZ*5 

/C(3)«C0RRECT RESULT 

/ISZ FAILED 

/IF A ERROR OCCURED 

/CLEAR CC03 TO LOOP ERR 

/UPDATE FOR NEXT GO 

/ROUND 

/CHANGE TO LOOP TEST 



/EACH .10RD IN THE BuFFER 13 SET 
/ISZ THEN INCREMENTS IT TO ZERO 
MILL LOOP ON ERROR IF CONTINUE 



TO -1 (177777), 

AND SKIPS. THE 
IS PRESSED 



PROGRAM 



I3Z30I 



ISZ3H 



ISZ32I 



ISZ33: 



SUbZL 
uDA 1 
LDA 2 
ADC 3 
STA 3 
NIQP 
ISZ * 
J^P I 
LOA 3 
flOV* 
JMP I 
AUD 
SUbft 
JMP I 
JMP i 
HALT 
JMP . 
LDA 3 
iAlF 
SUB 
JMP I 
MUV*f 



, 
,FIN 
i BUFF 

#3 
#0»2 

CPU 

,2 

SZ32+2 

,0;2 

3,3,SZR 

SZ32 

,2 

1,2,SZR 

SZ31-1 

SZ33 

♦ 3 

i0»2 

i& 

SZ31-1 

0,0 



>C(0)«1,THE LOOP ON ERR SWIT 
/CCD-FINAL SUFFER ADDRESS 
/C(2)«FIRST BUFFER ADDRESS 
»C(3)«177777 C-l) 
/STORE THE (-1) IN BUFFER 
/SYNC AT 7-A74 
/INCREMENTION SHOULD SKIP 
/ISZ FAIL TO SKIP 
/DOES BUFFER"^? 
/IF NOT ISZ FAIL TO COUNT 
/CORRECT , 3UT SKIPPED 
/INC TO NEXT BUFFER LOC 
/AND TEST FOR END 

/END 30 NEXT TEST 
/ISZ SKIPPED BUT STORED NG 
/CC3)«ISZ RESULT, CC2)«0K 
/CC2)«ADDRESS OF ERR 
/ISZ FAIL TO SKIP. C(3)« 
/ISZ RESULT. C(2)*EFF ADDRESS 
/LOOP ON THE ERROR 
/CHANGE TO LOOP TEST 



<3? 



AAA 



/ANOTHER TEST OF I3Z 

/THIS TEST WILL ADO ONE TO EACH LOCATION OF A BUFFER 

/THAT IS PRESET TO ONES. THE LAST LOCATION IN THE 

/BUFFER IS SET TO CONTAIN ZEROS, THUS PREVENTING 

/A ISZ SKIP ON THAT LOCATION. A ISZ INSTRUCTION WILL 

/REFFERANCE THE BUFFER VIA INDEX REGISTER 2. IF THE 

/ISZ INSTRUCTION SKIPS AC2 18 INCREMENTED AND THE 

/SEQUENCE REPEATS. WHEN THE ISZ FAILS TO SKIP THE 

/BUFFER POINTER IS CHECKED. IF IT IS EQUAL TO THE END 

I OF THE BU 

/BUFFER THE TEST IS SUCESSFUL. IF HOWEVER IT IS NOT 

/THE BUFFER END THE PROGRAM WILL HALT. IF A FRBflB 

/OCCURES THE ENTIRE TEST WILL BE REPEATED UNTILL THE 

/PROGRAM IS RESTARTED, 



01664 


126400 


ISZ40I 


SUB 1,1 


/LOOP ON ERR SWITCH 


01665 


102009 




ADC 0,0 




V t V vv 


rs 1 A • a K 




tu* 3, Fan 


/FINAL BUFFER ADDRESS 


01667 


030114 




LDA 2, BUFF 


/FIRST BUFFER ADDRESS 


01670 


041000 




STA 0,0,2 


/FILL THE BUFFER WITH 


0167i 


151400 




INC 2,2 


/c-n 


01672 


156414 




SUB* 2,3, SZR 


/EXCEPT THE LAST 


01673 


000775 




JMP ,-3 


/WHICH IS FILLED WITH 


01674 


045400 




STA 1,0,3 


/ZEROS 


01675 


030114 


I3Z4H 


LDA 2, BUFF 


/CC2) POINTS TO BUFFER 


01676 


060377 




NIOP CPU 


/SVNC AT 7-A74 


01677 


011000 




ISZ 0,2 


/ISZ SHOULD SKIP EVERY 


01700 


000403 




JMP I8Z42 


/TIME EXCEPT LAST 


01701 


151400 




INC 2,2 


/POINT NEXT LOCATION 


01702 


000774 




JMP ISZ41M 




01703 


021000 


ISZ42: 


LDA 0,0,2 


/CC0)«RESULT OF ISZ 


Dl1 7CI4 


1 *K4 « A 




ftiiuu n <i o t a 


• » u (^ i * i r. niv ■ * 


mr m r «■" -* 


• -«■ -" i — 




WUUTT c , SJ , 13 t ri 


rsnuuuu dc a vs 


01705 


126001 




ADC 1,1, 5KP 


/C(1)«L00P ON ERR SWIT 


01706 


156414 




SUB* 2, 3, SZR 


ZC(2)«EFF ADDRESS OF ISZ 


01707 


063077 




HALT 


/OPERAND. 


01710 


125004 




MOV 1,1, SZR 


/IF CC13 NOT PROG 


01711 


000754 




JMP ISZ40+1 


/WILL LOOP 



fr 



AAA 



/A TEST OF DSZ ABILITY TO NOT 8KIP 
/THE CCTEM) IS SET TO C-l). DECREMENTING SHOULD 
/PRODUCE -2 AND NOT SKIP. PRESSING CONTINUE AFTER A 
/ERROR WILL CAUSE THE PROGRAM TO LOOP ON ERROR 
/UNTILL RESTARTEO. 



01712 102520 

01713 024122 

01714 152000 

01715 176000 



DSZ01 



01716 
01717 
01720 
01721 
01722 
01723 
01724 
01725 
01726 
01727 
01730 



054107 
060377 

014107 
000404 
020107 
063077 
102401 
10649)4 

150014 
063077 



01731 
01732 
01733 
01734 
01735 
01736 
01737 
01740 
01741 
01742 
01743 
01744 
01745 
01746 
01747 
01750 



1102520 
12662E 
152520 
05U107 
060377 
014107 
000404 
147004 
001(3773 
0910405 
020107 
063S77 
102400 
000766 
101234 
063077 



D3Z11 



SUBZL 0*0 
LDA 1.C377 
ADC 2,2 
ADC 3,3 

STA 3,TEM 
NIOP CPU 
DSZ TEM 
JMP ,+4 
LDA 0,TEM 
HALT 

bUt* 0,0, SKP 
SUB 0,1, SZR 
JMP DSZ1 
COM* 2,2,SZR 
HALT 



|C(0)«1,LOQP ON ERR SWITCH 



ICC2) NOT 
/CC3)"-1 



USED THIS TEST 



ISTORE THE VALUE 

ISYNC AT 7-A74 

/DECREMENT CCTEM) 

/IT SHOULD NOT SKIP 

JIT SKIPPED. CC0)"DSZ RESULT 

/CORRECT VALUE «-2 

/CLEAR CC0) TO LOOP ERR 

/CHANGE AND TEST ITERATION 

/COUNTER. ANOTHER PASS 

!CC2)M00IFIED I 



/A TEST OF DSZ ABILITY TO SKIP 
/CCTEM) IS SET TO 0. DECREMENTING CCTEM) TO 
/SHOULD PRODUCE A DSZ SKIP. PRESSING CONTINUE 
/AFTER A ERROR WILL CAUSE TOHE PROGRAM TO LOOP 
/UNTILL RESTARTED. 



DSZ2: SUBZL 0,0 

SUBZR 1,1 

SUBZL 2,2 
DSZ3I STA 2, TEM 

NIQP CPU 

OSZ TEM 

JMP DSZ* 

ADD 0,1, SZH 

JMP DSZ3 

JMP DSZ5 
D3Z4I LDA 0,T£M 

MALT 

SUB 0,0 

JMP DSZ3 
D5Z51 hGVZR* 0,0, SZR 

HALT 



/CC0)«1»LOOP ON ERR SWITCH 

/CCU »1 00000 » ITERATIONS 

/CC2)«1 

/STORE THE a 

/SYNC AT 7-A74 

/DECREMENT. IT SHOULD SKIP 

/DSZ FAIL TO SKIP 

/TEST ITERATION COUNT 

/CONTINUE ON 

/NEXT TEST 

/CC0)«RESULT OF FAIL DSZ 

iCORRECT COUNT«0 

/CLEAR CC0) TO LOOP 

/CC0) SHOULD BE +1 
/CHANGE MOVZR TO LOOP TEST 



3» 



AAA 



M TEST OF 08Z 

ITHE RESULT OF A D8Z INSTRUCTION IS CHECKED 

MXTH THE RESULT OF A ADO INSTRUCTION. THE ADD 

IIS PRESUMED TO WORK BECAUSE OF PREVIOUS TESTING. 

|THE DECREMENT LOOK OF THE DSZ, ITS ABILITY 

f TO SKIP, AND NOT SKIP IS CHECKED. SHOULD THE 

|D8Z FAIL, THE PROSRAM MILL HALT. PRESSING 

^CONTINUE WILL PLACE THE PROGRAM IN A FAILING LOOP 

IFOR SCOPING PURPOSES (YOU MUST REMOVE THE HALT) , 

JPROGRAM 

IMUST BE RESTARTED TO GET OUT OF THE FAILING LOOP 



THE 



B1751 

01782 
01753 
01764 
01756 
01756 
01757 
01760 
01761 
01762 
01763 
01764 
01765 
01766 



152000 
176000 
102620 
101400 
143025 
000424 
040107 
060377 
014107 
176001 
0100411 
024107 
122015 
000767 



DSZ10! 



ADC 2,2 
ADC 3,3 

SUBZR 0,0 
INC 0,0 
ADDZ 2,0, SNR 
JMP D8Z13 
STA 0,TEM 
nIOP CPU 
CSZ TEM 
ADC 3,3,SKP 
JMP D8Z12 
LDA 1,TEM 
ADC* 1,0, SNR 
JMP DSZ10+4 



|CC2)»-1 
|C(3)»-1 

|CC0)»100001 

7TE8T FOR PASSING THROUGH 

IDSZ FAILED TO SKIP 

fSTORE THE VALUE FOR D8Z 

ISYNC AT 7-A74 

IT. DECREMENT. THE D8Z SKIPS 

ION EXIT. SET C(3) — 1 

IDSZ SKIPPED. 

ICOUNT OBTAINED FROM D8Z 

IIS COUNT CORRECT? 

IYE8 CONTINUE ON 



01767 
01770 
01771 
01772 
01773 



117000 
063077 
152400 
176000 
000762 



DSZUI 



ADD 0,3 
HALT 
SUB 2,2 
ADC 3,3 
JMP DSZ10+4 



|CC3)"C0RRECT COUNT 
|CC1)"DSZ COUNT 
ICLEARING AC2 WILL CAUSE 

IPROGRAM TO LOOP ON ERR 



01774 101235 DSZ12I MOVZR* 0,0, SNR 

01775 000412 JMP DSZ14 

01776 024107 LDA 1,TEM 

01777 117000 ADD 0,3 

02000 063077 HALT 

02001 000770 JMP DSZ11+2 



IDSZ SKIPPED, WAS THAT OK? 
IYES GO TO NEXT TEST 
ICCD'DSZ COUNT CAUSING 
ITHE SKIP. CC3)"C0RRECT 
IDSZ SKIP LOGIC FAIL 
ILOOP ON THE ERROR 



02002 
02003 
02004 
02005 
02006 



024107 
176400 
10240? 
063077 
000763 



DSZ13: 



LDA i,TEM 
SUB 3,3 

SUB 0,0 

HALT 

JMP DSZ11+2 



IDSZ FAILED TO SKIP 

IFROM 0.CCl)iOSZ COUNT 
|CC3)«C0RRECT COUNT 
ILOOP ON ERR 



02007 101010 DSZ14! MOV* 0,0 



ICHANGE TO LOOP TEST 



02010 



(000420 
002030 



JMP 2030 
.LOC 2030 



31 



AAA 



02030 
02031 
02032 
02033 
02034 
02035 
02036 
02037 
02040 
02041 
02042 
02043 
02044 
02045 
02046 
02047 
02050 
02051 
02052 



030121 
102620 
034110 
U70B0 
040107 
060377 
014107 
014107 
(814107 
014107 
014107 
024107 
136414 
063077 
136414 
152400 
143023 
000761 
101010 



02053 102520 

02054 024115 

02055 030114 

02056 176520 

02057 055000 

02060 060377 

02061 015000 

02062 000412 

02063 035000 

02064 175014 

02065 000405 

02066 113000 

02067 132414 

02070 000766 

02071 000407 

02072 063277 

02073 0*30403 

02074 035000 

02075 1*63077 

02076 102400 

02077 00fc757 
02100 101010 



IA TEST OF OSZ 

IPIVE CONSECUTIVE DSZ INSTRUCTIONS TO LOCATION TEM 

MRE EXECUTED. THE VALUE IN TEM SHOULD EQUAL C(3) 

JWHICH IS 5 LESS THAN THE INITIAL VALUE STORED IN 

FCCTEM) 

fTHE NUMBERS ARE ARANGED SUCH THAT NO DSK INSTRUCTION 

fSHOULD SKIP. 



DSZ20I 



DSZ21I 



DSZ22S 



LDA 2,C5 
SubZR 0,0 
LDA 3, CMS 
ADD 0,3 
STA 0,TEM 
NIOP CPU 
DSZ TEM 
DSZ TEM 
DSZ TEM 
DSZ TEM 
DSZ TEM 
LDA 1,TEM 
SUB* 1,3,SZR 
HALT 

SUB* 1,3,SZR 
SUB 2,2 
ADDZ 2,0,SNC 
JMP DSZ20+2 
MOV* 0,0 



/C(2J«ERR0R LOOP SWITCH 
ISTART AT 100000 
>C(3)«EXPECTED DSZ RESULT 



ISTORE THE 
fSYNC AT 7. 
^DECREMENT 



VALUE FOR DEC 

A74 

CCTEM) 



fCCl)*RESULT OF DECREMENT 
|CC3)«C0RRECT COUNT 
;DSZ FAILED 

JCLEAT CC2D TO LOOP 
IUPDATE FOR NEXT 
IGO ROUND 
ICHANGE TO LOOP TEST 



|A TEST OF DSZ 

IEACH WORD IN THE BUFFER IS SET TO +1. DSZ THEN 
JDECREMENTS IT TO (+1) AND SKIPPES. IF A ERROR 
JOCCURES THE PROGRAM WILL CYCLE CONTINUSELY 
fUNTILL IT IS RESTARTED. 



DSZ30I 



USZ31I 



DSZ32I 



DSZ33J 



SUBZL 0,0 
LDA 1,FIN 
LDA 2, BUFF 
SUBZL 3,3 
STA 3,0,2 
NIOP CPU 

t\ e 1 n f\ 

JMP DSZ32+2 
LDA 3,0,2 
«OV# 3,3,SZR 
JMP DSZ32 
ADD 0,2 
SUb* 1,2, SZR 
JMP DSZ31-1 
JMP DSZ33 
HALT 
JMP .+3 
LDA 3,0,2 
MALT 
SUB 0,0 
JMP DSZ31-1 
MOV* 0,0 

3*. 



;C(0)«1,LOOP ON ERR SWITCH 

|CC1)"FINAL BUFFER ADDRESS 

JCC2)«FIRST BUFFER ADDRESS 

ICC3)»*1 

ISTORE WORD OF IN BUFFER 

ISYNC AT 7-A74 

■ nerpkMCKiTrnM « u n 1 1 1 n SKIP 

jdsz fail to skip 
;dsz skipped ok, is mem 

IWORD 0? 

IN01 ERROR 

;AOVANCE TO NEXT LOCATION 

IMQRt LOCATIONS IN BUFFER 

>GO TO NEXT TEST 

JDSZ SKIPPED BUT STORE NG 

|CC2)«EFF ADDRESS, CC3)"RE3ULT 

JOF THE DSZ 

;DSZ FAIL TO SKIP 

fC(23«EFFECTlVE ADDRESS 

ILOOP THIS TEST 

JCHANGE TO LOOP TEST 



AAA 



02101 


126000 


02102 


102520 


02103 


034115 


02104 


030114 


0210S 


041000 


02106 


151400 


02107 


156414 


02110 


000775 


02111 


051400 


02112 


102000 


02113 


0341H 


02H4 


2)30114 


02115 


173000 


02116 


060377 


02117 


015374 


02120 


000410 


02121 


015375 


02122 


000407 


02123 


1015376 


02124 


000406 


02125 


015377 


0212b 


000405 


02127 


000766 


02130 


113000 


02131 


113000 


02132 


113000 


02133 


113000 


02134 


034U5 


02135 


021000 


02136 


156414 


02137 


126400 


02140 


156414 


02141 


063077 


02142 


124014 


02143 


00*737 



/ANOTHER TEST OF D8Z 

/THIS TEST WILL SUBTRACT ONE FROM EACH LOCATION OF A 
/BUFFER SET TO *1.THE TEST HAS BEEN WRITTEN TO OIVI 
/A HIGH REP RATE FOR THE DSZ INSTRUCTION. PRESSING 
/CONTINUE AFTER A ERROR WILL CAUSE THE TEST TO BE 
/ITERATED UNTILL RESTARTED. 



DSZ40I 



0SZ41I 



USZ42I 



DSZ431 



ADC 1,1 

SUBZL 0,0 
LDA 3, FIN 

i HA o _ uiire 1 

» ■» n *. | h* w r r 

8TA 0,0,2 
INC 2,2 
SUB* 2,3,SZR 
JMP ,-3 
STA 2,0,3 

ADC 0,0 
LDA 3,C4 
LDA 2, BUFF 

ADD 3,2 

NIDP CPU 



DSZ 
JMP 
DSZ 
JMP 
USZ 
JMP 
USZ 
JMP 
JMP 

ADD 

ADD 

ADD 

ADD 

LDA 

LDA 

SUb* 

SUB 



-4,2 

DSZ43 

-3,2 

DSZ43+1 

-2,2 

DSZ43+2 

-1,2 

DSZ43+3 

0SZ42 

0,2 

0,2 

0,2 

0,2 

3, FIN 

0,0,2 

2,3,SZR 
1,1 



SUB* 2,3,SZR 

HALT 

COM* 1,1, SZR 

JMP DSZ40+1 



/CC13-LOOP 
/C(0)i+1 



ON ERROR SWITCH 



/SET ALL LOCATIONS IN 
/THE BUFFER TO ZERO 
/EXCEPT THE LAST LOCATION 

/DSZ SKIPS ALL BUT LAST 

/CC0)"-1,FQR ERROR CHECK 
ZCC3)M, BUFFER INCREMENT 
ZC(2) POINTS TO THE BUFFER 

/INC BUFFER POINTER BY 4 
/SYNC 7-A74 
/DECREMENT THE BUFFER 
/VIA DSZ. DSZ SHOULD SKIP 
/UNLESS END OF BUFFER 



/NOT YET BUFFERS END 

IC(2J WILL BE SET 

/TO THE EFFECTIVE ADDRESS 

/OF THE ENTERING DSZ 

/INSTRUCTION 

/DID DSZ ENTER AT END OF 

/BUFFER OR DID IT FAIL? 

/CC3)«END OF BUFFER 

ZCC2)«EFFECTIVE ADDRESS 

/CC0)«RESULT OF DSZ INST 

/A DSZ FAILED TO SKIP 

/IF C(1)«0 LOOP ON ERROR 



.EUT 



33 



|A TEST OF INDIRECT ADDRESSING 

ITHE CCTEM) IS SET TO POINT TO A BUFFER. A LDA 

INSTRUCTION THEN REFFERANCES THE BUFFER INDIRECTLY. 

ITHE CCTEM) IS CHECKED TO INSURE THAT IT HAS NOT 

ICHANOED. PRESSING CONTINUE AFTER A ERROR WILL CAUSE 

/THE PROGRAM TO LOOP ON THE FAILING C0N0ITI0N8 

IUNTILL RESTARTED. 

' |CC0)"1,LOOP ON ERR SWITCH 

IFIRST ADDRESS IN BUFFER 

IFINAL ADDRESS IN BUFFER 

|CC2) STORED IN CCTEM) 

|SYNC AT 7-A74 

IREFFERANCE REGISTER TEM 

IHAS CCTEM) CHANGED 

IIF+OR- ONE PERHAPS AUTO IDX 

|YES,CCl)«VALUE OF TEM 

|C(2J»VALUE STORED IN TEM 

ICLEAR C(0) TO LOOP 

> INC BUFFER POINTER 

ITEST FOR END OF BUFF 

ICHANGE TO LOOP TEST 

;A TEST OF INDIRECT ADDRESSING 

;A ADDRESS PATTERN (C (ADDRESS) "ADDRESS) IS STORED IN 

ITHE BUFFER VIA INDEX REGISTER 3. A LDA INSTRUCTION 

|THEN 

IREFFERANCES EACH LOCATION IN THE BUFFER INDIRECTLY. 

IBECAUSE THE BUFFER CONTAINS A ADDRESS PATTERN THE DATA 

IOBTAINED REPRESENTS THE ADDRESS OBTAINED. PRESSING 

ICONTINUE AFTER A ERROR CAUSES THE PROGRAM TO LOOP ON 

ITHE 

lERRQR UNTILL RESTARTED. 



02144 


102520 DEF0I SUBZL 0,0 


02145 


030114 


LDA 2, BUFF 


02146 


034115 


LDA 3, FIN 


02147 


050107 


STA 2, TEM 


02150 


060377 


NIOP CPU 


02151 


026107 


LDA 1,#TEM 


02152 


024ie7 


LDA 1,TEM 


02153 


132414 


SUB* 1,2,SZR 


02154 


063077 


HALT 


02155 


132414 


SUB* 1,2,SZR 


02156 


102400 


SUB 0,0 


02157 


113000 


ADD 0,2 


02160 


156414 


SUB* 2,3,SZR 


02161 


000766 


JMP DEF0+3 


02162 


101010 


MOV* 0,0 



02163 


102520 


02164 


034114 


02165 


030115 


02166 


0554G*0 


02167 


175400 


02170 


156414 


02171 


000775 


02172 


034114 


02173 


054107 


02174 


060377 


02175 


0261(27 


02176 


136414 


02177 


063077 


02200 


136414 


02201 


102400 


02202 


117000 


02203 


156414 


02204 


000767 


02205 


10101* 



DEF10I SUBZL 0,0 
LDA 3, BUFF 
LDA 2. FIN 
STA 3,0,3 
INC 3,3 
SUB* 2,3,SZR 
JMP .-3 
LOA 3, BUFF 

DEF1H STA 3, TEM 
NIOP CPU 
LDA 1,»TEM 
SUB* 1,3,SZR 
HALT 
SU6« 1,3,SZR 

SUE) 0,0 
ADD 0,3 
SUB* 2,3,SZR 
JMP DEF11 
MOV* 0,0 



|CC0)«1»LOOP ON ERR SWITCH 
IFIRST BUFFER LOCATION 
IFINAL BUFFER LOCATION 
ISTORE THE ADDRESS 
IPATTERN IN THE BUFFER 
IEXAMPLEI CC4105)M105 

IADDRESS PATTERN IS STORED 

IPRESET CCTEM) FOR INDIRECT 

ISYNC AT 7-A74 

|GO INDITECT TO GET DATA 

|C(1)"DATA/ADDRESS OBTAINED 

|CC3)«C0RRECT OATA/ADDRESS 

|IF IT FAILS 

ICLEAR TO LOOP ON ERROR 

IAOVANCE TO NEXT ADDRESS 

ITEST FOR END OF BUFFER 

ICHANGE TO LOOP TEST 



/A TEST OF INDIRECT ADDRESSING 

/WE DO NOT YET KNOW THAT INDIRECT ADDRESSING WORKS 

/THIS TEST INSURES THAT THE STA INST STORES INDIRECT 

|AND NOT DIRECTLY. IF A ERR OCCURES PRESSING CONTINUE 

/WILL CAUSE THE PROGRAN TO LLOP ON ERROR UNTILL 

/RESTART. 



02206 


102520 DEF14I SUBZL 


02227 


030114 


LDA 2 


02210 


034122 


LDA 3 


02211 


050107 


STA 2 


02212 


150000 


COM 2 


n t\ *\ 4 ti 


060377 


>i • MM 


ruur 


02214 


052107 


STA 2 


02215 


150000 


CON 2 


02216 


0241^7 


LDA 1 


02217 


132414 


SUB* 


02220 


063077 


HALT 


02221 


146414 


SUB# 


02222 


102400 


SUB 


02223 


113000 


ADD 


02224 


116404 


SUB 


02225 


000764 


JMP D 


02226 


101010 UEF15I MOV* 



0,0 

,BUFP 
,C377 

,TEM 
,2 

CPU 

,#TEM 

,2 

,TEM 

1,2,SZR 

2,1, 5ZR 

»0 

,2 
,3,SZR 

EF14+3 
0,0 



/C(0)«liLOQP ON ERROR SWITCH 

ICC2) POINTS TO THE BUFFER 

ICC3D ■ITERATION COUNTER 

/STORE BUFF POINTER IN C(TEM) 

/CHANGE_C^2)_ 

/SYNC AT 7-A74 

/5T0RE VIA CCTEM) INDIRECT 

/RESTORE C(2) 

/DID C(TEM) CHANGE? 

/C(1)«VALUE IN CCTEM) 

lCfg)*pRIG VALUE OF TEH 

/IF CC1) IS COMP OF CC2) 

/STA STORED DIRECT 

iLQOP ON ERROR 

/ITERATION COUNTER 

/CHANGE TO LOOP PROGRAM 



/A TEST OF INDIRECT ADDRESSING 

/THIS ROUTINE WILL TEST THE ABILITY OF THE STA 

/INSTRUCTION 

/TO STORE IN A BUFFER USING INDIRECT ADDRESSING. THE 
/DATA 

/STORED IS THE COMPLEMENT OF THE ADDRESS INTO WHICH IT 
/IS 

/STORED, EXAMPLE* C C5073) ■ 172704. IF A ERROR OCCURES 

/PRESS 

/CONTINUE TO LOOP ON THE FAILING CONDITIONS. 



02227 
02230 
02231 
02232 
02233 
02234 
02235 
02236 
02237 
02240 
02241 
02242 
02243 
02244 
02245 
02246 



102520 
030114 
050107 
154001? 
060377 
056107 
025000 
136414 
063077 
136414 
102400 
113000 
034U5 
156414 
000764 
101010 



DEF20! 



DEF21I 



SUBZL 0,0 
LDA 2, BUFF 
STA 2,TEM 
COM 2,3 
NIOP CPU 
STA 3,#TEM 
LDA 1,0,2 
SUB* 1,3,SZR 
HALT 

SUB* 1,3,SZR 
SUB 0,0 
ADD 0,2 
LDA 3, FIN 
SUB» 2,3,SZR 
JMP DEF20+2 
HOV* 0,0 



/CC0)«1,LOOP ON ERR SWITCH 
/CC2MFIRST BUFFER LOCATION 
/SET TEM TO POINT TO BUFFER 

fSYNC AT 7-A74 
/STORE COMP OF ADDRESS 
/VALUE STORED TO ACl 
/DIS IT STORE OK? 
/C(2)*ADDRESS IN BUFFER 
/C£3)«DATA STORED 
/CC1)"DATA FROM BUFFER 
/ADVANCE TO NEXT LOC 

/TEST FOR END OF BUFFER 

/CHANGE TO LOOP TEST 



35- 



AAA 



22247 

02250 
02251 
02252 
02253 
02254 
02255 

02256 
02257 

02260 
02261 
02262 
02263 
02264 
02265 
02266 
02267 
02273 



102520 
030U4 
034115 
051000 
151400 
156414 
000775 

030114 
060377 

027000 
132414 
063077 
132414 
102400 
113000 
156414 

000770 

101010 



02271 
02272 
02273 
02274 
02275 
02276 
02277 
02300 
02301 
02302 
02303 
02304 
02305 
02306 
02307 
0231(0 
02311 
02312 
02313 



102520 
034115 
030114 
051001 
151400 
156414 
000775 
030114 
060377 
053001 
025000 
132414 
063077 
132414 

102A00 
113000 

156014 
000767 
101010 



/A TEST OF INDIRECT ADDRESSING 

/THE BUFFER IS SET TO CONTAIN A ADDRESS PATTERN, A LDA 
/INSTRUCTION VIA CC2) THEN CAUSES A INOIRECT REFFERANCE 
|T0 BE MADE AT EACH LOCATION IN THE BUFFER. BECAUSE 
/EACH LOCATION CONTAINS ITS ADDRESS THE LDA INSTRUCTION 
(WILL LOAD THE LOCATION INDIRECTED THROUGH. PRESSING 
/CONTINUE AFTER A ERR WILL CAUSE THE PROGRAM TO LOOP ON 
/ERROR UNTILL RESTARTED. 



DEF301 



DEF3H 



DEF32! 



SUBZL 0i0 
LDA 2, BUFF 
LDA 3, FIN 
STA 2,0,2 
INC 2,2 
SUB# 2,3,SZR 
JMP .-3 

LDA 2, BUFF 
NIOP CPU 
LDA 1,90,2 
SUB* 1,2,SZR 
HALT 

SUB# 1,2,SZR 
SUB 0,0 
ADD 0,2 
3UB# 2,3, SZR 
JMP DEF31+1 
MQV* 0,0 



|CC0)«1,LOOP ON ERROR SWITCH 
/FIRST ADDRESS IN BUFFER 
/FINAL ADDRESS IN BUFFER 
/STORE A ADDRESS PATTERN 
/IN THE BUFFER 
/EXAMPLE! C(7314)«7314 



/FIRST BUFFER LOCATION 

/SYNC AT 7-A74 

/SHOULD LOAD WO POINTED TO 

/CC2)«ADDRESS INDIRECT THROUGH 

/CC1)«VALUE OBTAINED 

/CLEAR TO LOOP ON ERROR 
/INC TO NEXT BUFFER LOC 
/TEST FOR END OF BUFFER 

/CHANGE TO LOOP TEST 



IS 



/A TEST OF INDIRECT ADDRESSING 

/A MODIFIED ADDRESS PATTERN CC (ADDRESS) iADDRESS-1) 
/STORED IN THE BUFFER. A STA INSTRUCTION INDIRECTS 
/THROUGH EACH LOCATION IN THE BUFFER STORING IN THAT 
ZLOCATION-1. PRESSING CONTINUE AFTER A ERROR CAUSES THE 
/PROGRAM TO LOOP ON THE ERROR UNTILL RESTARTED. 



DEF34I 



UEF35J 



DEF36I 



SUBZL 
LDA 3 
LDA 2 
STA 2 

T iu r n 

Jb l' W €. 

SUB* 
JMP . 
LDA 2 
NIOP 
STA 2 
LDA 1 
SUBtf 
HALT 

sub* 
SUb 
ADD 
ADC* 
JMP 
hOV* 



0,0 
,FIN 
,BUFF 

,1,2 

ft 

2, 3, SZR 

-3 
,BUFF 

CPU 
,M,2 

,0,2 
1,2, SZR 

1,2, SZR 

r0 

,2 

2, 3, SZR 

EF35+1 

0,0 



ZCC0DM 

/FINAL LOCATION IN BUFFER 
/FIRST LOCATION IN BUFFER 
/IN EACH BUFFER LOCATION 

icrnec 

t v i w n & 

/LOCATION-1 



tubt *r>n oca s nr TMiT 



/FIRST BUFFER LOCATION 
/SYNC AT 7-A74 
/DEFER THROUGH BUFFER, STORE 
/CC2) IN BUFFER-1, THEREFOR 
/STORE ADDRESS IN ADDRESS. 
/FOR EXAMPLE! CC4050]«XXX 
/CC405n«4050,C(2)"4050 
/INDIRECT THROUGH 4051 TO 
/STORE CC2) IN LOCATION 4050 
/TEST FOR END OF BUFFER 

/CHANGE TO LOOP TEST 



<5U 



AAA 



/A TEST OF INDIRECT ADDRESSING (2 LEVELS) 
/THE BUFFER IS SET TO CONTAIN A ADDRESS PATTERN. A LDA 
/INSTRUCTION USIN6 TWO LEVELS OF INDIRECT ADDRESSING 
;then REFFERANCES each location in the BUFFER. PRESSING 
/CONTINUE AFTER A ERROR WILL CAUSE THE PROGRAM TO LOOP 
/ON THE ERROR UNTILL RESTARTED. 



02314 102520 

02315 030114 

02316 034115 

02317 051000 

0193001 i K i Ant* 



02321 
02322 



156414 
000775 



DEF40! 



SUBZL 0,0 
LOA 2, BUFF 
LDA 3, FIN 

STA 2,0,2 

T wr n n 
* ii w tf ( 

SUB* 2,3,SZR 
JMP .-3 



|CC0)«1,LOOP ON ERR SWITCH 
/FIRST BUFFER LOCATION 
/FINAL BUFFER LOCATION 
/STORE A ADDRESS PATTERN 



■ Ttl TUP IIIIIKD 
, * n ink uur r un 



02323 
02324 
02325 
02326 
02327 
02330 
02331 
02332 
02333 
02334 
02335 
0233b 
02337 
02340 



030114 
126620 
147000 
044107 
060377 
026107 
132414 
063077 
132414 
102400 
113000 
156414 
000765 
101010 



DEF41I 



DEF42I 



LDA 2, BUFF 
SUBZR 1,1 
ADO 2,1 

STA 1,TEM 

NIOP CPU 

LDA i,#TEM 

SUB* 1,2,SZR 

HALT 

SUB* 1,2,SZR 

sub 0,0 

ADD 0,2 
SUB* 2,3,SZR 
JMP DEF41+1 

MOV* 0,0 



/FIRST BUFFER LOCATION 

/CC1)"100000,THE DEFER BIT 

ZC(2)"INDIRECT POINTER 

/TO BUFFER 

/SYNC AT 7-A74 

/GO INDIRECT FOR DATA 

/CClJiDATA FROM BUFFER 

/CC2)«C0RRECT QATA 

/2 LEVELS INDIRECT FAIL 

/CLEAR TO LOOP ON ERROR 

/ INC TO NEXT BUFF LOC 

/TEST FOR END OF BUFFER 

/CHANGE TO LOOP TEST 



/A TEST OP JSR 
/THE BUFFER IS 
JSR 



CHARD TEST) 
FILLED WITH 



/ 

; 
; 
; 

/ 

/THE 
/THE 
/THE 
/THE 
/*1 

;*2 

Z*3 
/*4 

/*5 
/*6 



2,3 

0,2 
0,2 
0f2 
2 3 
INITIALLY 



JSR 

JSR 

JSR 

JSR 
CC3) IS 
C(2) » " 

PROGRAM THEN JUMPS 
BUFFER SEQUENCE IS 
TO BUFFER+3 



THE FOLLOWING 
TO THE LOCATION SPECIFIED BYC(3)*2 
BACK TO THE CONTROL PROGRAM 

II II H II II 
II II II II II 

TO HHE LOCATION SPECIFIED BY C(3)+2 

TO BUFFER*! 
11 



JSR 
JSR 
JSR 
JSR 
JSR 
ETC 



TO 

TQ 
TO 
TC 



BUFFER+3 
BUFFERtB 
BUFFERtS 
BUFFER*!! 



/GO 
/GO 
/» 
/» 
/GU 
SET 

RETURN 
TO THE FIRST 
AS FOLLOWS! 
CC3)»BUFFER*1 
CC3)«BUFFER*4 
CC3)"8UFFER+4 
C(3)"BUFFER*7 
CC3)«BUFFER+7 



TO MAIN PROGRAM 
BUFFER LOCATION, 



37 



AAA 



08341 
08342 

02343 

02344 
08345 
08340 
02347 
02390 
02361 
02352 
02353 
02354 
02355 

02356 
02357 
0236a 
02361 
02362 



030114 
034115 

020422 
024420 

041000 

045001 
045002 
151400 
151400 
151400 
156432 
000771 
045376 

034114 
175400 
030406 
102400 

126400 



02363 001777 



02364 
02365 
02366 
02367 
02370 
02371 
02372 
02373 
02374 
02375 
02376 



f THIS PROCESS CONTIMUES UNTILL THE END OF THE BUFFER IS 

REACHED. 

|AT FINAL A0DEESS,PINAL-1,FINAL*1,THE PROGRAM RETURNS 

JTQ THE 

MAIN SEQUENCE. THE PC STORED BY THE FINAL J3R IS 

fCHECKED, 



JSR20I 



JSR21I 



JSR22I 



005000 


CJSR2I 


005402 


CJSR3I 


002367 


CJSR4I 


107004 


JSR23I 


063077 




020115 




162644 




100005 




101011 




063077 




101000 





LDA 2, BUFF 
LDA 3, FIN 
LDA 0,CJSR3 
LDA 1,CJSR2 
STA 0,0,2 
STA 1,1,2 
STA 1,2,2 
INC 2,2 
INC 2,2 
INC 2,2 
8UBZ# 2,3,SZC 
JHP JSR21 
STA 1,-3,2 

LDA 3, BUFF 
INC 3,3 
LDA 2,CJSR4 
SUB 0,0 
SUB 1,1 

JHP -1,3 

JSR 0,2 
JSR 2,3 

.♦1 

ADD 0,1, SZR 

HALT 

LDA 0,FIN 

3UB0R 3,0, SZR 

COH 0,0, SNR 

MOV* 0,0, SKP 

MALT 

MOV 0,0 



IFIRST BUFFER LOCATION 
ILA8T BUFFER LOCATION 
^CONSTANT (JSR 2, 3) "CONTINUE 
^CONSTANT (JSR 0,2)«RETURN 
fSTORE CONTINUE 
;» RETURN 
|" RETURN 



FTEST FOR END OF BUFFER 
IPERHAP8 1,2 EXTRA WORDS 
JMAKE LAST CONTINUE A RETURN 

IINITIAL SETUP OF CC3) 

IFOR FIRST JSR IN BUFFER 

ITHE PROGRAM RETURN 

JBOTH CC0),CC1) SET TO 

IWILL CHECK FOR NO EFFECT BY 

IJSR 

|GQ TO THE BUFFERl 

ITHREE CONSTANTS 



fC(0),C(l) SHOULD NOT HAVE 

JBEEN CHANGEDil 

ITEST CC3J FOR FINAL, FINAL-1 

JOR FINAL+1, ADDRESS 

FCC33 ■ ADDRESS OF RETURNING 



JCHANGE TO LOOP TEST 



3? 



AAA 



02377 

02400 
02401 
02402 
02403 
02404 
02403 
02406 
02407 
02410 
02411 
02412 
02413 
02414 
02415 
02416 

02417 
02420 
02421 
02422 
02423 
02424 

02425 
02426 
02427 
02430 
02431 
02432 
02433 
02434 
02435 
02436 
02437 
02440 
02441 



034115 
030114 
024114 
020437 
166640 
04100? 
151400 
125404 
000775 
050107 
020114 
041000 
101400 
151400 
156414 
000774 

030107 
102620 
143000 
040107 
024114 
102520 

060377 
006107 
136014 
063077 
136014 
102400 
107000 
101014 
010107 
132014 
000766 
101011 

005400 



M TE8 

/THE F 
/INSTR 
/AND A 
IBOTTE 
/THE 3 
/*1 

;*2 

1*3 
/*4 

/PRESS 



T OF 
IRST 
UCTIQ 
DDRES 
M. CC 
EQUEN 
CO 
WOR 
INS 
PC 
INC. I 



iTfi inrtD nn, 



INDIREC 
HALF OF 
NS, THE 
S POINT 
TEM) PO 
CE IS A 
INDIREC 
IN TO 
TRUCTIO 
CCC3) 3 
ONTINUE 

rye eg 
i i ib far? 



T ADDRESSING (2 LEVELS) 

THE BUFFER IS FILLED WITH CJSR 0,3) 

SECOND HALF IS FILLED 
ING TO THE CJSR) INSTRUCTIONS IN THE 
INTS TO THE TOP HALF OF THE BUFFER. 
S FOLLOWS! 

T THROUGH REGISTER TEH 
P POINTS TO BOTTEM 
N IN BOTTEM IS EXECUTED 
FROM BOTTEM IS CHECKED 

AFTER A ERROR WILL CAUSE THE PROGRAM 



art a iiiitti i nraf mam 
nun unuLk ncgiARICU. 



DEF50I 



DEF51! 



DEF52I 



DEF53I 



QEF54J 
CJDFll 



LDA 3, FIN 
LDA 2, BUFF 
LDA I, BUFF 
LDA 0,CJDF1 
SUBOR 3,1 
STA 0,0,2 
INC 2,2 
INC 1,1, SZR 
JHP .-3 
STA 2, TEM 
LDA 0,BUFF 
STA 0,0,2 
INC 0,0 
INC 2,2 
SUB* 2, 3, SZR 
JMP .-4 

LDA 2, TEM 
SUBZR 0,0 
ADD 2,0 
STA 0,TEM 
LDA I, BUFF 
SUBZL 0,0 

NIOP CPU 
JSR #TEM 
ADC* 1,3, SZR 
HALT 

ADC* 1,3, SZR 
SUB 0,0 
ADD 0,1 
MOV* 0,0, SZR 
ISZ TEM 
ADC* 1,2, SZR 
JMP DEF53 
MOV* 0,0, SKP 
JSK 0,3 



/FINAL BUFFER ADDRESS 
/FIRST BUFFER ADDRESS 

/CONSTANT CJSR 0,3) 

ZCCl)»(LAST-FIRST)/2«-WC 

/STORE THE JSRSt 

/IN BOTTEM PART OF BUFFER 



/CCTEM)»FIRST LOC IN TOP 

/STORE A MODIFIED ADDRESS 
/PATTERN IN TOP HALF OF 
/THE BUFFER, C(TOP)» 
/BOTTEM ADDRESS+100000 



/CC2) POINTS TO TOP HALF 

ZCf0)«100000 

/THIS ROUINE AADD3 THE 

/INDIRECT BIT TO C(TEM) 

/CC1) USED FOR CHECK 

/C(0)«1,LOOP ON ERR SWITCH 

/SYNC AT 7-A74 

/GO TO THE BUFFER C(3)* 

/JSR RETURN. CCl)"CORRECT 

/FINAL ADDRESS. INDIRECT WITH 

/JSR FAILED 

/CLEAR TO LOOP ON ERROR 

/POINT TO NEXT BUFFER LOC 

/INC IF NOT ERROR 
/TEST FOR END OF BUFFER 

/CHANGE TO LOOP TEST 
/A CONSTANT 



31 



AAA 



02442 


020114 RANFLt 


LDA 0,BUFF 


32443 


040107 


8TA 0,TEM 


02444 


034115 


LDA 3, FIN 


02445 


024000 


LDA 1,0 


02446 


121x900 RANFCl 


MOV 1,0 


02447 


024433 


LDA 1,C1347 


02450 


152620 


SUBZR 2,2 


02451 


107222 


ADDZR 0,1, SZC 


02452 


147000 


ADD 2,1 


02453 


131000 


MCJV 1,2 


02454 


113520 


ANDZL 0,2 


02455 


107000 


ADD 0,1 


02456 


146400 


SUB 2,1 


02457 


020112 


LDA 0.MSIZE 


02460 


123400 


AND 1,0 


02461 


030114 


LDA 2, BUFF 


02462 


162433 


SUBZft 3,0,SNC 


02463 


142033 


ADCZ# 2,0,3NC 


02464 


000762 


JMP RANFC 


02465 


030107 


LDA 2,TEM 


02466 


112415 


SUB* 0,2, SNR 


02467 


000757 


JMP RANFC 


02470 


101120 


MQVZL 0,0 


02471 


125100 


MOVL 1,1 


02472 


101200 


MOVR 0,0 


02473 


125200 


MOVR 1,1 


02474 


042107 


STA 0,#TEM 


02475 


010107 


ISZ TEM 


02476 


030107 


LDA 2, TEM 


02477 


156014 


ADC* 2,3,SZR 


02500 


000746 


JMP RANFC 


02501 


101011 


MOV* 0,0, SKP 


02502 


135753 C1347J 


135753 



IFILL THE BUFFER WITH 
JRANDOM ADDRESS IN 
JBIT8 4-15. THIS VALUE 
IWILL POINT TO SOME 
JOTHER SPOT IN THE BUFFER 
IBIT IS RANDOMLY 0/1 

JTHIS 

JROUTINE PRODUCES A 
IRANDOM 16 SIT NUMBER 
fCdJiRANDOH 



fMASK OF MEM SIZE 
|C(0)«RANDOM MODULO MEMORY 

IIS C(0) WITH IN THE 
IRANGE OF THE 8UFFER? 
JNQ TO BIG OR TO SMALL 



IREJECT IF ADDRESS SAME 

ICCBIT 0) RANDOM DETERMINES 
I IF WORD GETS INDIRECT BIT 

J5T0RE THE WORD 

JTEST FOR END OF BUFFER 

|MAKE MORE RANDOM 
JCHANGE TO LOOP 



4> 



AAA 



/A TEST OF INDIRECT ADDRESSING 
/THE BUFFER 18 FILLED WITH PSEUDO 
/ARE ADDRESSES, THE VALUE OF EACH 
/SOME SPOT IN THE BUFFER. BIT OF 
/WORD IS RANDOMLY SET OR CLEARED. 
/POINTS TO THE FIRST BUFFER LOCATI 
/EFFECTIVE ADDRESS IS CALCULATED U 
/INDIRECT. A LDA INSTRUCTION THEN 
/INDIRECTLY 

/THE BUFFER. THE RESULT OC THE IND 
/THE SAME AS THE CALCULATED VALUE, 
/SAME THE CORRECT CHAIN SHOULD BE 
/AND PENCIL. RESTARTING THE PROGRAM 
/FOLLOWING THE HALT WILL CAUSE THE 
/A FAILING LOOP UNTILL RESTARTED. 
/7-A74 PROCEEDS THE INDIRECT CHAIN 



RANDOM NUMBERS WHICH 
ADDRESS POINTS TO 

EACH BUFFER 
THE PROGRAM FIRST 
ON, THE FINAL 
P TO 15 LEVELS OF 
REFFERANCE8 

IRECT LDA 8H0UL0 BE 
IF IT IS NOT THE 

CALCULATED WITH PAPER 
AT THE LOCATION 
PROGRAM TO ENTER 

A SYNC PULSE AT 



02503 


024114 DEF601 LDA I, BUFF 


02504 


121120 


MDl/71 1 flt 


02505 


101240 


MOVQR 0,0 


02506 


040123 


STA 0,CFQQ 


02507 


102520 


SUBZL 0,0 


02510 


131080 


MOV 1,2 


02511 


101125 


PiQVZL 0,0, SNR 


02512 


000417 


JMP DEF62 


02513 


031000 


LDA 2,0,2 


02514 


151132 


MOVZL* 2,2,8ZC 


02515 


000774 


JMP ,-4 


02516 


050107 


STA 2,TEM 


02517 


031000 


LDA 2,0,2 


02520 


102520 0£F81I SUBZL 0,0 


02521 


060377 


NIOP CPU 


02522 


036123 


LDA 3,»CF0Q 


02523 


172414 


SUb# 3.2,SZR 


02524 


063877 


HALT 


02525 


1724^4 


SUB* 3,2,8ZR 


02526 


102401 


SUB 0,0, SKP 


02527 


101005 


MOV 0,0, SNR 


02530 


000771 


JMP DEF6H-1 


02531 


125400 0EF62: INC 1,1 


02532 


034115 


LDA 3, FIN 


02533 


136414 


SUB* 1,3,SZR 


02534 


000750 


JMp DEF60+1 



02535 101010 DEF63I MOV* 0,0 



/FIRST LOCATION IN THE BUFFER 



ZCC0)"l, LEVEL COUNTER 

/COUNT INDIRECT LEVELS 

/15 LEVELS, GIVE UP THIS CHAIN 

/GET BUFFER WORO 

/DOES IT HAVE A INDIRECT BIT 

/YES KEEP LOOKING 

/C£2)iFINAL VALUE 

/C(0)«1|LOOP ON ERR SWITCH 
/SYNC AT 7-A74 
/REFFERANCE THE BUFFER 
/CC3)"W0RD OBTAINED 
/CC23«CORRECT 

/C(1)«PLACE BUFFER WAS ENTERED 
/WRITE DOWN THE CORRECT 
/INDIRECT CHAIN, SINGLE STEP 
/LOOP ON THE ERROR 

/GO TO THE NEXT BUFFER LOC 
/TEST FOR FINAL 

/NOT YET BUFFER END 

/CHANGE TO LOOP TEST 



4 



AAA 



/A TEST OF INDIRECT ADDRESSING 

/THIS TEST IS MIMULAR TO THE PREVIOUS TEST IN THAT THE 
/BUFFER IS FILLED WITH PSEUDO RANDOM NUMBERS, EACH 
/LOCATION IN THE BUFFER MAY CONTAIN A INDIRECT BIT. 
/EACH LOCATION ALSO CONTAINS A N BIT ADDRESS OF A 
/BUFFER LOCATION. A ROUTINE CALCULATES EFFECTIVE 
/AD0RE3S UP TO 15 LEVELS. THE EFFECT OF A INDIRECT 
/ISZ/QSZ INSTRUCTION PAIR IS CHECKED. 

/CAN'T USE AUTO INC/DEC YET 
/EXCHANGE BUFFER ENDS SO 
I IT WONT BE THE SAME AS 
/LAST TEST 



J INC TOWARDS TOP, DEC TOWARDS 

/8UTTEM 

/TEST FOR MIDDLE 

/OF THE BUFFER 

/FIRST BUFFER LOCATION 



/CC0)»LEVEL COUNTER 

/IF MORE THAN 15 LEVELS 
/OF INDIRECT, GIVE UP 
/CALCULATE EFFECTIVE 
/ADDRESS, LOOK FOR INDIRECT 
/BIT A ONE 

/CCTEM)«EFFECTIVE ADDRESS 
ZCC2)"DATA THAT ADDRESS 



02536 


030H4 EXCHI LDA 2, BUFF 


02537 


034115 


LDA 3, FIN 


02540 


021000 


LDA 0,0,2 


02541 


025777 


LUA 1,-1,3 


02542 


045000 


STA 1,0,2 


02543 


041777 


STA 0,-1,3 


02544 


151400 


INC 2,2 


02545 


174400 


nEG 3,3 


02546 


174000 


COM 3,3 


02547 


172433 


SUBZ* 3,2,SNC 


02550 


2^^772 


JMP EXCH+2 


02551 


024114 UEF64I LDA I, BUFF 


02552 


121120 


MOVZL 1,0 


02553 


101240 


MQVQR 0,0 


02554 


040123 


STA 0,CFOO 


02555 


102520 


SUBZL 0,0 


02556 


131000 


MOV 1,2 


02557 


101125 


MOVZL 0,0, SNR 


02560 


000422 


JMP DEF66+2 


02561 


031000 


LDA 2,0,2 


02562 


15U32 


MOVZL* 2,2, SZ 


02563 


000774 


JMP .-4 


02564 


850107 


STA 2,TEM 


02565 


031000 


LDA 2,0,2 



«*- 



AAA 



02866 


102520 DEF65I 8UBZL 0,0 


02667 


060377 


NIOP CPU 


02570 


012123 


I8Z tCFOQ 


02571 


036107 


LDA 3,#TEM 


02572 


016107 


D8Z #TEM 


02573 


156015 


ADC# 2,3,3NR 


02574 


000413 


JMP DEF67 


02575 


063077 


HALT 


02576 


102400 


SUB 0,0 


02577 


052107 


8TA 2,#TEM 


02600 


1CH0»R nPFftAl MOW n.a.AMB 


02601 


000766 


JMP DEF65+1 


02602 


125400 


INC 1,1 


02603 


034115 


LDA 3, FIN 


02604 


136414 


SUB» 1,3,SZR 


02605 


000745 


JMP 0EF64+1 


02606 


000406 


JMP ,+fl 


02607 


036107 DEF67I LDA 3,»TEM 


02610 


172415 


SUB* 3,2,8NR 


02611 


000767 


JMP DEF66 


02612 


063077 


MALT 


02613 


000763 


JMP 0EF66-2 


02614 


101010 


M0V# 0,0 



|CC0)il,LOOP ON 
ISYNC AT 7-A74 



ERROR SWITCH 



^INCREMENT CORRECT? 

»C(2) ■CORRECT, C CTEMJ «ADDRE8S 

|CC3)"W0RD FROM BUFFER 

ICLEAR TO LOOP ON ERROR 

JHQPEPULLY RESTORE MEMORY 
irrtT tub eras guTTru 

?L00P ON ERROR 
^ADVANCE BUFFER POINTER 
ITE8T FOR FINAL ADDRESS 



|CO TO NEXT TEST 

JISZ WORKtD TEST D8Z 
fC (2) "CORRECT, C(TEM)i ADDRESS 
»CC3)«0ATA FROM MEMORY 
JPRES3 CONTINUE TO 
/RESTORE AND LOOP ON ERR 
ICHANOE TO LOOP TEST 



.EOT 



-ft 



M TEST UF AUTO INCREMENT/DECREMENT 
ITHIS TEST WILL INSURE THAT REGISTERS 20-37 
fDQ NQT CHANCE VALUE WHEN REFFERANCEO WITHOUT A 
^INDIRECT BIT. 



02615 


102400 


IO0I 


SUB 0,0 


02616 


152400 




SUB 2,2 


02617 


126620 




SUBZR 1,1 


02620 


041020 




STA 0,20,2 


02621 


151400 




INC 2,2 


02622 


125224 




MOVZR 1,1, SZR 


02623 


000775 




JMP .-3 


02624 


176620 


1011 


SUBZR 3,3 


02625 


0210130 




LDA 0,0,2 


02626 


025^00 




LDA 1,0,2 


02627 


106414 




SUB* 0,1, SZR 


02630 


063077 




HALT 


02631 


151400 




INC 2,2 


02632 


175224 




MOVZR 3, 3, SZR 


02633 


000772 




JMP ID1+1 


02634 


102000 




AOC 0,0 


02635 


151112 




HOVL* 2,2,SZC 


02636 


000403 




JMP ID2 


02637 


152620 




SUBZR 2,2 


02640 


000757 




JMP ID0+2 


02641 


101010 


102! 


MOV« 0,0 



JFIRST PASS STORES (0) 
I IN REGISTERS 20-37 
ISECOND PASS STORES (-1) 

f INC ADDRESS 
ITERATION COUNT OF 20 



»SET ITERATION COUNT 

;LQOK FOR A CHANGE 

I IN TO REFFERANCE3 

JTO AUTO INC/DEC LOCATIONS 

fCC2)>ADDRE3S,C(0)«FIRST 

|REFFERANCE,CCnaSECOND 

JGO THROUGH ALL INC/OEC 

^REGISTERS 

,*C(0)"-1 

;FIRST OR SECOND PASS 

ISECOND, EXIT TEST 

rC(2)«100000 

ICHANGE TO LOOP TEST 



44 



AAA 



02642 
02643 
02644 
02645 
02646 
02647 

02650 
02651 
02652 
02653 
02654 
02655 
02656 
02657 
02660 
02661 
02662 
02663 

02664 
02665 
02666 
02667 
02670 
02671 



020124 
024112 
176620 

175220 
137415 

000776 

055427 
027427 
025427 
136414 

000410 

024113 
175220 
137415 

0(90770 

101404 
000761 
000407 

063077 
055427 
060377 
027427 

025427 

000774 



1041 



105! 



UOA 0,C174X 
IDA 1,M8IZE 
SUBZR 3,3 
MQVZR 3,3 
AND* 1,3,SNR 
JMP .-2 



STA 3 
IDA 1 
LOA 1 
SUB* 
JMP I 
IDA 1 

movzr 

AND* 
JMP I 
INC 
JMP I 
JMP I 



»27,3 
#•27,3 

,27,3 
1,3,8ZR 

D5 

,C40 
3,3 

1,3, SNR 
D4+6 
,0,SZH 
D4 + i 
06+1 



1061 



HALT 

STA 3,27,3 
NIOP CPU 
IDA 1,#27,3 
LOA 1,27,3 
JMP 105*1 



JCHECK THAT LOCATION! 
F4027, 2027, 1027 ETC ARE 
JNQT AUTO INCREMENT LOC« 
fATIONS. 



I8T0RE 80ME DATA 

>DID IT CHANCE VIA 
ITHE INDIRECT REFPERANCE1 
IYE8 IT FAILED, 
JNO ITS OK, 



KC33"DATA STORED, CCl)i 

fDATA AFTER INDIRECT, 

ISYNC 7-A74 

fBMA INPUT TO AND GATE 

JFAILED. 



Vr 



AAA 



/AUTO INCREMENT CHECK 

ICOUNT ALL THE AUTO INCREMENT REGISTERS FROM 

1600*0-77777 

/CHECK THE VALUE AGAINST A ADD INSTRUCTION. PRESS 

/CONTINUE AFTER A HALT TO LOOP ON ERROR. 



02672 
02673 
02674 
02675 
02676 
02677 
02700 
02701 
02702 
02703 
02704 
02705 
02706 
02707 
02710 
02711 
02712 
02713 
02714 
02715 
02716 



02717 

02720 
02721 
02722 
02723 
02724 
02725 
02726 
02727 
02730 
02731 
02732 
02733 
02734 
02735 
02736 
02737 
02740 
02741 
02742 



102520 
176400 
152620 
151240 
151220 
051420 
060377 
027420 
025420 
146014 
063077 
146014 
102400 
113000 
151U3 
000766 
175400 

024976 
136414 
000757 
101010 



102520 
176400 
152620 
151220 
151220 
051430 
060377 
027430 
025430 
132014 
063077 
132014 
102400 
112404 
000767 
175400 
024*76 
136414 
B0tf760 
101010 



IO10I SUBZL 0*0 
SUB 3,3 
SUBZR 2,2 
MOVQR 2,2 
MQVZR 2,2 
STA 2,20,3 
NIOP CPU 
LDA 1,020,3 
LOA 1,20,3 
ADC* 2,1,SZR 
HALT 

ADC* 2,1,SZR 
SUB 0,0 
ADD 0,2 
MUVL* 2,2,SNC 
JMP 1010*5 
INC 3,3 
LDA 1,C10 
SUB* 1,3,SZR 
JMP ID10+2 

101 1 S MOV* 0,0 



JC(0)»1,LOOP ON ERROR SWITCH 
;C(3)*0-7, REGISTER POINTER 



ISTARTING VALUE OF 60000 
ISETUP AUTO INC REGISTER 
/SYNC AT 7-A74 
ITHIS SHOULD INC THE REG 
;CCU«VALUE OF AUTO REG 
»CC2)»C0RRECT VALUE-1 
!CC3)+20»FAILING REG 

/CLEAR TO LOOP ON ERROR 

/TEST FOR COUNT OF 100000 

fNOT YET 

IAOVANCE TO NEXT AUTO REG 

/TEST FOR LAST REGISTER 

ICHANGE TO LOOP TEST 



/AUTO DECREMENT CHECK 

;COUNT ALL ThE AUTU DECREMENT REGISTERS FROM 20000-0 
/CHECK TEH VALUE AGAINST A ADD INSTRUCTION. PRESS 
/CONTINUE AFTER A ERROR TO SCOPE THE FAILURE 



1014! SUBZL 0,0 
SUB 3,3 
SUBZR 2,2 
MQVZR 2,2 
MUVZR 2,2 
STA 2,30,3 
NIOP CPU 
LDA 1,930,3 
LDA 1,30,3 
ADC* 1,2,SZR 
HALT 

ADC* 1,2,SZR 
SUB 0,0 
SUB 0,2,SZR 
JMP ID14+5 
INC 3,3 
LDA 1,C10 
SUB* 1,3,SZR 
JMP ID14+2 

ID15I MOV* 0,0 



JC(0)»1,LOQP ON ERROR SUIT 
»CC3)"0-7, REGISTER POINTER 



/STARTING VALUE OF 20000 
/SETUP AUTO DECREMENT REG 
/SYNC AT 7-74 
/SHOULD DECREMENT THE REG 
/CC1)»VALUE OF AUTO DEC REG 
JCC2)"C0RRECT VALUE+1 
fCC3J+30»FAILING AUTO REG 

/CLEAR TO LOOP TEST 
/TEST FOR ZERO COUNT 

/ADVANCE TO NEXT AUTO REG 
/TEST FOR LAST AUTO 
/DECREMENT REGISTER 

/CHANGE TO LOOP TEST 



tfc 



AAA 



02743 
02744 
02745 
02746 
02747 
027B0 
02751 
02752 
02753 
02754 
02755 
02756 
02757 
02760 
02761 
02762 
02763 
02764 
02765 
02766 
02767 



102000 
176400 
030114 
B51420 
060377 
053420 
025420 
146015 
000415 
063077 
102400 
041000 
112400 
024115 
132414 
000764 
175400 
024076 
136414 
000757 
000406 



M TEST OF AUTO INCREMENT 

JEACH LOCATION IN THE BUFFER 18 SET TO A ADDRESS 

fPATTERN-l 

/VIA THE AUTO INDEX REGISTERS. THE REGISTERS COUNTING 

JABILITY AS WELL AS THE DATA IS CHECKED, THE PROGRAM 

HILL LOOP ON ERROR IF CONTINUED AFTER A HALT. 



ID20! 



1021 1 



ID22I 



ADC 
SUB 3 
LDA 2 
STA 2 
NIOP 
STA 2 
LDA 1 
ADC* 
JMP I 
HAL 
SUB 
STA 
SUB 
LDA 1 
SUB* 
JMP I 
INC 3 
LDA 1 
SUB* 
JMP I 
JMP I 



,0 
,3 

,BUFF 

,20,3 

CPU 

,#20,3 

,20.3 

2,1,SNR 

D23 

i0 

,0,2 

,2 

,FIN 
1,2,SZR 

020 + 2 
,3 

,C10 
1,3,3ZR 

D20 + 1 
D24 



JFIRST BUFFER LOCATION 

ISETUP AUTO INC REGISTER 

ISYNC AT 7-A74 

fSTORE CC2) VIA AUTO INC 

JCCAUTO) TO CC1) 

ICHECK INCREMENT FEATURE 

IITS OK 

;CU)»VALUE OF AUTO INC REG 

|CC2)»C0RRECT VALUE-1 

|CC3)+20MUTO REGISTER INVOLVED 

JCCBUPFER) DESTROYED AFTER TEST 

ICC13 -FINAL ADORESS 

ITEST FOR END OF BUFFER 

JGO TO NEXT AUTO REGISTER 
JTEST FOR LAST ONE 



fGQ TO NEXT TEST 



02770 025001 10231 LDA 1,1,2 

02771 132415 SUB# 1,2,3NR 

02772 000764 JMP ID22 

02773 063077 HALT 

02774 000761 JMP ID22-1 

02775 101010 10241 MOV* 0,0 



IAUTO INC VALUE OK BUT 
fDATA STORED IS WRONG 
|C(1)»DATA FROM MEMORY 

JU i.*) •tUKKCI, I VALUE 

FC(3)*20"AUTO REGISTER 
ICHANGE TO LOOP TEST 



47 



AAA 



/A TEST OF AUTO DECREMENT 

;EACM LOCATION IN THE BUFFER IS SET TO A ADDRESS 
/PATTERN+1 VIA THE AUTO DECREMENT REGISTERS. THE 
/REGISTERS COUNTING ABILITY AS WELL AS THE DATA IS 
/CHECKED, THE PROGRAM WILL LOOP ON ERROR IF CONTINUED 
/AFTER A HALT 



22776 102000 1030! ADC 0,0 

02777 1764^0 SUB 3,3 

03000 030115 LDA 2, FIN 

03001 051430 STA 2,30,3 

03002 060377 NIOP CPU 

03003 053430 STA 2, #30, 3 

03004 025430 LDA 1,30,3 

03005 132015 1031 t ADC# 1,2,SNR 

03006 000415 JMP ID33 

03007 063077 HALT 

03010 102400 SUB 0,0 

03011 041000 10321 STA 0,0,2 

03012 113000 ADD 0,2 

03013 024114 LDA 1,BUFF 

03014 132414 SUB* 1,2,SZR 

03015 1400764 JMP ID30 + 3 

03016 175400 INC 3,3 

03017 024076 LDA 1,C10 

03020 136414 SUB# 1,3,SZR 

03021 000757 JMP ID30+2 

03022 090406 JMP ID34 



|C(0)«-1,LOOP ON ERR SWITCH 

/C(3)«0, FIRST INDEX USED 

/FINAL BUFFER ADDRESS 

/TO AUTO DECREMENT REGISTER 

/SYNC AT 7-A74 

ISTORE CC2) IN BUFFER VIA 

ICC13 "VALUE OF AUTO DEC REG 

/C(2)"C0RRECT VALUE+1 

JCC3)+30«AUTQ REGISTER 

/AUTO DECREMENT FAILED 

/CLEAR TO LOOP ON ERROR 

;CLEAR OUT THE PATTERN 

fCC2)»C(2)-l 

/TEST FOR BEGIN OF BUFFER 



/ADVANCE TO NEXT AUTO REG 

/TEST FOR END 

/AGAIN WITH THIS REGISTER 

/GO TO NEXT TEST 



03023 025377 

03024 132415 

03025 000764 

03026 063077 

03027 030761 



10331 LDA 1,-1,2 

SUB** 1,2,SNR 

JMP ID32 

HALT 

JMP 1032-1 



/AUTO DEC VALUE IS OK 
/BUT THE DATA STORED IS 
>CC1)"DATA FROM BUFFER 
/C(2)«C0RRECT VALUE 
ZC(3)+30«AUTO REGISTER 



NOT 



03030 101010 10342 MOV** 0,0 



/CHANGE TO LOOP TEST 



# 



AAA 



03091 
03032 
03033 
03034 
03035 
03036 
03037 
03040 
03041 
03042 
03043 
03044 
03049 
03046 



03047 
03050 
03051 
03052 
03053 
03054 
03055 
03056 



102520 
126000 
030114 
034115 
050027 
045001 
060377 
012027 
102401 
113001 
063077 
156414 

101010 



024425 
034114 
030115 
050034 
156400 
046034 
175404 
000776 



M TEST OF AUTO INC U8ING I8Z 

/THE PROGRAM STORES A f-13 IN THE BUFFER, 

/A ZSZ INSTRUCTION VIA AUTO INCREMENT REGISTER 27 

/THEN INCREMENTS THE BUFFER. IF A ERROR SHOULD OCCURE 

/PRESSING CONTINUE WILL PLACE THE PROGRAM IN A FAILING 

ILOOP UNTILL RESTARTED, 



ID40I SUBZL 0,0 
ADC 1,1 

LDA 2,BUFF 

ID41I STA 2,27 
STA 1,1,2 

NIOP CPU 
ISZ #27 
SUB 0,0, SKP 
ADD 0,2, SKP 
HALT 

SUB* 2,3, 8ZR 
JMP ID41 
ID42I MOV* 0,0 



;CC0)*1,LOOP ON ERROR SWITCH 

/CC1)»-1 

/FIRST LOCATION IN THE BUFFER 

■ cnni i n^iffnti » n *u> gnip>n 
»r*ii«u kuiiKllun 4IX I nc DurrtK 

/SETUP AUTO INCREMENT REG 
I8T0RE (-1) IN MEMORY 
/SYNC AT 7-74 
/INCREMENT AND SKIP 
I ZSZ FAIL TO SKIP 
/INC TO NEXT LOC 
/EXAMINE LOC 27 
/TEST FOR END OF BUFFER 

/CHANGE TO LOOP TEST 



/A TEST OF AUTO INC/DEC 

/VIA REGISTER 34 THE BUFFER IS FILLED WITH JSR INST, 
/A JSR VIA REGISTER 25 IS EXECUTED, THE RETURN FROM 
/THE BUFFER IS CHECKED, PRESS CONTINUE TO LOOP ERROR, 



10441 LDA 1,CIDJ 

LDA 3, BUFF 

LDA 2, FIN 

STA 2,34 

SUB 2,3 

STA 1,»34 

INC 3,3,SZR 

JMP ,-2 



/A CONSTANT CJSR 0,3) 
/FIRST BUFFER LOCATION 
/FINAL BUFFER LOCATION 
/C(34) POINTS TO THE BUFFER 
»C C33 ■ -WORDS IN BUFFER 
/FILL BUFFER WITH CJSR) 



03057 102520 I045I SUBZL 0,0 

03060 024114 LOA 1,SUFF 

03061 6)44025 STA 1,25 

03062 006025 JSR #25 

03063 174400 NEG 3,3 

03064 174000 COM 3,3 

03065 136014 ADC* 1,3,SZR 

03066 102401 SUB 0,0, SKP 

03067 107001 ADD 0,1, SKP 

03070 063077 HALT 

03071 132014 ADC* 1,2,SZR 

03072 000767 JMP 1045+2 

03073 101011 ID46! MOV* 0,0, SKP 

03074 005400 CIDJI JSR 0,3 



ZC(0)«1,LOQP ON ERROR SWITCH 

/SETUP AUTO INDEX REG 
/GO TO THE BUFFER 
/EFFECTIVELY SUBTRACT 1 
/FROM C(3) 

ICC3D "POINT BUFFER ENTERED 
>C(2)"C0RRECT-1 
/C(25)«AUT0 INC VALUE 
/25-AUTO INC REGISTER 
/TEST FOR ENO OF BUFFER 



/CHANGE TO LOOP 
/A CONSTANT 



TEST 



4* 



AAA 



03075 024114 IQ50I LDA 1,BUFF 

03076 030115 LDA 2, FIN 

03077 102520 8UBZL 0,0 

03100 050033 8TA 2,33 

03101 006033 J8R #33 

03102 156414 3UB# 2,3,SZR 

03103 102401 SUB 0,8, SKP 

03104 112401 SUB 0,2, SKP 

03105 063077 HALT 

03106 132014 ADC# 1,2|3ZR 

03107 000771 JMP ID50+3 



IFIR8T LOCATION OF THE BUFF 
JFINAL LOCATION OF THE BUFF 
f C C0) "1 (LOOP ON ERROR 8WIT 
ISETUP AUTO DECREMENT 
|GO TO THE BUFFER 
|CC3)"PC FROM BUFFER 
»CC2)«INITAL VALUE OF AUTO 
IDEC REGISTER 33 
IPROG WILL LOOP ON ERROR 
JTEST FOR BEGIN OF BUFF 



03112 034402 DGCAt LDA 3,, +2 

03111 152001 ADC 2, 2, SKP 

03112 0042)00 4000 

03113 020112 LDA 0,MSIZE 

03114 116432 SU8Z« 0,3,SZC 

03115 002421 JMP 'LAST 

03116 102620 SUBZR 0,0 

03117 143005 DSCXI ADD 2,0,3NR 

03120 000413 JMP DGCB 

03121 041400 STA 0,0,3 

03122 060377 NIOP CPU 

03123 015400 DSZ 0,3 

03124 101010 MQV# 0»0 

03125 025400 LDA 1,0,3 

03126 122015 ADC# 1,0, SNR 

03127 000770 JMP DGCX 

03130 152400 SUB 2,2 

03131 063877 HALT 

03132 000765 JMP DGCX 

03133 020757 DGCBJ LDA 0,DGCA+2 

03134 117000 ADD 0,3 

03135 0tt0754 JMP DGCA+1 

03136 000162 LASTI 3EG1 

.END 



ITEST DSZ COUNT IN 
fEACH MEMORY MODULE. 
JCC2)«ERR0R SWITCH, 



ISYNC 7-A74 



|CC1)"RE8ULT OF DSZ 
;C(0D"VALUE BEFORE OSZ 



?GO TO NEXT LOCATION 



So 



